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© Method of decoding a binary scan signal. 

© A method of decoding a binary scan signal consisting of a bit sequence produced by an electro-optical 
scanning device (10) as the device (10) scans bar code symbols on a label is disclosed. The bits in the 
sequence correspond to light and dark spaces making up the bar code symbols. The method includes the steps 
of: a.) supplying the binary scan signal to a storage buffer (12) such that the buffer (12) contains a plurality of 
bits most recently produced by the scanning device (10). b.) selecting a portion of the bit sequence which 
defines a large light space, c.) subjecting the bits in the sequence following those defining the large light space 
to a series of tests to determine whether such bits were produced by scanning a bar code symbol which Is valid 
in one or more of several bar codes, d.) decoding the bar code symbol in the codes in which it Is valid, e.) 

3 subjecting the next bits in the sequence to a series of tests to determine whether such bits were produced by 
scanning a bar code symbol which Is valid In any of the bar codes in which the previously decoded bar code 
& symbol is valid, i) decoding the bar code symbol In the codes in which it and the previously decoded bar code 
5? symbol are valid, and g.) repeating steps f.) and g.) above until all bar code symbols on the label have been 
^"decoded. 
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METHOD OF DECODING A BINARY SCAN SIGNAL 

The present invention relates to bar code scanners and, more particularly, to label scanning systems of 
the type which are designed to read labels having information which may be presented in any of a number 
of different codes commonly in use. 

Labels bearing information in a number of different bar code formats are typically used in a number of 

5 different applications. It is common, for example, to encode product identification information as a series of 
printed bars or dark areas, and interposed white spaces or light areas, on a product package or on a label 
affixed to the product package. An electro-optical scanner located at a check-out station in a retail 
establishment is then used by a clerk to automatically enter the product Identification data into a computer 
terminal. This permits the computer to then determine the total price of the products being purchased, as 

to well as storing the identity of the purchased products for inventory and accounting purposes. 

While such an arrangement greatly enhances the efficiency of the check-out process in the retail 
establishment and additionally allows the accumulation of sales data which is important for proper 
management controls, difficulties are encountered in the .scanning operation due to the nature of the 
products being scanned and the number of different bar codes currently in use. Packaging for various 

ts products is designed to make the products appealing to the consumer and, as a consequence, may include 
various graphics and text which, when scanned, produce a binary scan signal which mimics that produced 
when a label having valid bar code symbols is scanned. Additionally, a number of different bar codes have 
come into popular use, and the scanner circuitry must be capable of recognizing and decoding labels 
printed in each of these codes. 

20 It is important that the scanner system be capable of accomplishing these tasks automatically, without 
intervention by the clerk, even if several labels in different bar codes are affixed to a single product. This 
presents substantial difficulties since the bar codes vary significantly in their formats. As an example, Code 
3 of 9 is a binary code using elements of two widths in a symbol to represent a single character. Each of 
the 44 defined patterns of bars and spaces consists of five bars and four spaces. Each pattern represents 

25 one character in the forward direction and has the appearance of a second character in the reverse 
direction. The Interleaved 2 of 5 code, on the other hand, is a binary code using elements of two widths to 
represent numeric characters. Each frame or symbol, ten elements in length, contains two characters, the 
first being represented by the bar pattern, and the second by the space pattern. There is no gap between 
adjacent characters. In both codes, the proper scan direction, which may be a direction opposite to that in 

30 which the symbol was actually scanned by the electro-optical scanner, is determined by start and stop 
patterns at the beginning and end of the string of characters. 

A number of other bar codes have also come into common use, including for example Codabar, Code 
93, Code 128, the Universal Product Code (UPC), and the European Article Numbering (EAN) code. It will 
be appreciated that there is a need for a method of decoding a label in any of these codes without requiring 

35 an operator assessment of the specific code used for the label. 

This need is met by a method according to the present invention for decoding a binary scan signal 
consisting of a bit sequence produced by an electro-optical scanning device as the device scans bar code 
symbols on a label, with the bits in the sequence corresponding to light and dark spaces making up the bar 
code symbols. The method comprises the steps of: a) supplying the binary scan signal to a storage buffer 

4a such that the buffer contains a plurality of bits most recently produced by the scanning device; b.) selecting 
a portion of the bit sequence which defines a large light space; c.) subjecting the bits In the sequence 
following those defining the large light space to a series of tests to determine whether such bits were 
produced by scanning a bar code symbol which is valid in one or more of several bar codes; d.) decoding 
the bar code symbol in the codes in which it is valid; e.) subjecting the next bits in the sequence to a series 

45 of tests to determine whether such bits were produced by scanning a bar code symbol which Is valid in any 
of the bar codes in which the previously decoded bar code symbol is valid; f.) decoding the bar code 
symbol in the codes in which it and the previously decoded bar code symbol are valid; and g.) repeating 
steps e.) and f.) above until ail bar code symbols on the label have been decoded. 

The several bar codes may include one or more codes selected from the group consisting of Code 3 of 

so 9. Interleaved 2 of 5. Codabar. Code 93, Code 128. and UPC/EAN, or others using similar data encoding 
methods. 

One of the series of tests may be the comparison of the element ratio of the bits being tested with 
preset minimum and maximum element ratio levels, the element ratio being the ratio of the width of the 
widest of the dark spaces making up the symbol to the width of the narrowest of the dark spaces making up 
the symbol. 
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One of the series of tests may be the comparison of the element ratio of the bits being tested with 
preset minimum and maximum element ratio levels, the element ratio being the ratio of the width of the 
widest of the light spaces making up the symbol to the width of the narrowest ofthe light spaces making up 
the symbol. 

s One of the series of tests may be the comparison of the margin ratio of the bits being tested with a 
preset minimum margin ratio level, the margin ratio being the ratio of the width of the large light space 
preceding the symbols on a label to the sum of the width of the first several light and dark spaces making 
up the first symbol adjacent the large light space. 

One of the series of tests may be the comparison of the threshold ratio of the bits being tested with a 
ro preset with a preset threshold ratio, the threshold ratio being the ratio of the width of the widest light or dark 
space making up the symbol to the width of a particular light or dark space within the symbol. 

One of the series of tests may be the comparison of the character ratio of the bits being tested with 
preset maximum and mimimum character ratio levels, the character ratio being the ratio of the sum of the 
widths of the light and dark spaces making up a symbol to the sum of the widths of the light and dark 
is spaces making up the previous symbol. 

One of the series of tests may be the comparison of the gap ratio of the bits being tested with preset 
maximum and mimimum gap ratio levels, the gap ratio being the sum of the widths of the light and dark 
spaces making up a symboi to the width of the light space between the symbol and an adjacent symbol. 
One of the series of tests may be the comparison of the maximum narrow element ratio of the bits 
20 being tested with a preset maximum narrow element ratio level, the maximum narrow element ratio being 
the greater of the maximum ratio of the width of the narrowest dark space in a symbol to the width of the 
narrowest light space in the symboi, or the maximum ratio of the width of the narrowest light space In the 
symbol to the width of the narrowest dark space in the symbol. 

Step d.) may include the step of checking to determine whether the decoded bar code symboi is a 
25 backward or forward start or end symbol prior to subjecting further bits in the sequence to testing and 
decoding. 

Step g.) may include the step of checking the decoded bar code symbol to insure that it is decoded as 
a symbol which is one of a valid set of such symbols prior to g steps e.) and f.). 

The method may further comprise the step of comparison of the margin ratio of the bits in the 
30 sequence the final symbol with a preset minimum margin ratio level, the margin ratio being the ratio of the 
width of a large light space following the symbols on a label to the sum of the width of the last several light 
and dark spaces making up the last symbol adjacent the large light space. 

At least some of the tests to determine whether the bits in the bit sequence were produced by scanning 
a bar code symboi which is valid in several codes may be performed simultaneously. Alternatively, the tests 
36 to determine whether the bits In the bit sequence were produced by scanning a bar code symbol which is 
valid in several codes may be performed sequentially. 

Steps a.) through g.) may be performed by a programmed digital computer. 

Accordingly, it is an object of the present invention to provide a method of decoding a binary scan 
signal consisting of a bit sequence produced by an electo-optica! scanning device as the device scans bar 

40 code symbols; to provide such a method in which the bar code symbols are automatically decoded 
regardless of which of several different codes are scanned; and to provide such a method In which the bar 
code symbols are not decoded in an erroneous bar code. 

In order that the invention may be more readily understood, an embodiment will now be described, by 
way of example, with reference to the single Figure which is a schematic representation of a scanner, 

45 storage buffer, and microprocessor which may be utilized to perform the method of the present invention. 

The present invention relates to a method for decoding a binary scan signal consisting of a bit 
sequence produced by an electro-optical scanning device as the device scans bar code symbols on a label. 
The bits in the sequence correspond to the widths of the light and dark spaces defined by the spaces 
between the bars and by the bars themselves, respectively. Detailed algorithms for decoding the referenced 

60 bar codes, given measurements of the bars and spaces in a label, are provided below. The preferred 
apparatus by which this method is implemented is a programmed microprocessor. A hardware based 
decoder system may, however, use the same label acceptance criteria, with suitable use of parallelism and 
some adjustment of the numeric ratios and limits for ease of computation. 

The goafTn developing the algorithms utilized in the present invention was low error rate, fast response, 

55 and compatibility with autodiscrimination of the various bar codes. Low error rate requires that ail available 
information in the measurements be used In deciding if a good label is present. The measurements and 
methods used eliminate the effects of systematic errors in the printing and scanning process. Fast response 
while autodiscriminatlng several codes requires efficient implementation and early recognition of being In 
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See the referenced document for details. This is a binary code using elements of two widths to 
represent alphanumeric and some special characters. Each character pattern contains three wide elements 
and six narrow elements. The ratio of wide elements to narrow elements may vary over the range of 2:1 to 

so 3:1 from one label to another, but is to be constant within a given label. There is a gap between adjacent 
characters. Each of the 44 defined bar/space patterns consists of 5 bars and 4 spaces. Each pattern 
represents one character in the forward direction and looks like another character in the reverse direction. 
The actual scan direction is determined by looking for one of two possible valid characters at the beginning 
of the label: the usual start/stop character, or a reversed version of the start/stop character. In order to 

55 reduce errors due to systematic distortion of bar and space size, the decoding process for each character 
treats the bars and spaces separately. The number of data characters in a label is variable. A maximum 
length of 32 data characters is commonly specified. Optional features including label concatenation, a check 
character, and 128 character ASCII character set are defined in the AIM spec. 



J' 



the wrong code. Various data capture methods may be supported, such as capture of a scan before 
decoding, or concurrent data capture and decoding. 

The alogorithms operate according to the following specific guidelines: 
A. All bars and spaces in the label are checked for validity in some way. 
5 B. Label margins are required. 

C. Labels may be read forward or backward. 

D. Tests for label validity are done sequentially, starting with the fastest screen for a good label, 
progressing to the tests which generally reject fewer labels, or take longer to compute. Details of these tests 
are given in the sections for each code in this document. Failure of any test during this process results in 

to trying a different decoder algorithm, or looking for a label at a different point in the scan data. I 

E. After a label appears valid based on its structure and analysis of its element widths, additional 
operations may be performed, such as checksum validation and postprocessing into the final data to be 
sent from the decoder. Efficiency of the scanning and decoding process depends on the control structures 
used to look for labels and call the software decoders. 

75 Referring to the figure, the algorithms disclosed herein assume that a binary scan signal, consisting of a 
bit sequence produced by an electro-optical scanning device 10, is available In a buffer 12. This bit 
sequence is produced by the scanning device 10 as it scans a package bearing a bar code label. Buffer 12 
contains a complete scan pattern or a moving window of the scan data. Potential locations for the start of a 
symbol on the label are identified by checking for large white spaces defined by the data, which may 

20 correspond to the label margin. (It should be understood that throughout this discussion, "white space" and 
"light space" may be used interchangeably, since some bar code patterns may not be printed on truly 
white background surfaces. Similarly, the "bars" may also be referred to as "dark spaces") Decoder 
algorithms, performed by microprocessor 14. preferably a Thompson-Mostek MK68HC200 microprocessor, 
are then accessed to attempt decoding in the particular codes at the buffer location specified, ft will be 

25 appreciated that other microprocessors may also be utilized, if desired. 

Each decoder algorithm specified will try to decode a label at the location specified. If a good label is 
not found, other decoder algorithms may then be used for the same data until all have been tried. If none 
are successful, the buffer may then be searched for another possible label. The buffer may be filled during 
one sweep of the scan pattern, then decoded, or data may be added to the buffer continuously and 

so decoded concurrently. While the various algorithms are accessed sequentially in the preferred embodiment, 
it will be appreciated that the selected algorithms may be accessed simultaneously. The tests by which 
valid bar code symbols may be recognized for the various codes *may be performed prior to decoding. 
Alternatively, a portion of the tests may be performed, preferably the tests which may be performed quickly, 
and then the symbols decoded. The balance of the tests may then be performed. A complete hardware 

35 implementation of the present invention would utilize similar decisions in the actual decoding process. The 
algorithms by which the method of the present invention are effected are given in the following sections, 
delineated Sections 4 through 9. 

40 Section 4: Code 3 of 9 



45 4.1 General Description of Code 3 of 9 i 
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42 Overview of the algorithm. 

Variables and constants used in the decoding process are defined below, followed by a brief 
description of the decoding algorithm. A detailed description of the algorithm follows in section 4.3. 

5 

4.2.1 Status Variables 

> Values of the status variables can be maintained globally to allow re-entrant use of the decoder. 

TO 



Variable 


Description 


name 




i 


pointer to the current element in the data buffer. This always 




points to a space when the decoder Is called. 


last char 


sum of the element widths in the last character decoded in the 


width 


current label. This doest include the intercharacter gap. 


current 


decoded ASCII character 


character 




label 


decoded characters as an ASCII string. 


string 




forward 


boolean; true if decoding in forward direction. 


continue 


boolean; true while the buffer at the current element looks like 


decode 


good data. 


found 


boolean; true when a label has been put Into label string. 


label 




data 


array of numbers representing widths of the elements 


buffer 


scanned. They must alternate between bars and spaces. 



30 

4.22 Decode Constants 

Constant values are identified in this section. The constants are referenced by name In the description 
35 of the algorithm 



40 



1 

i 

50 
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Constant 
name 


Value 


Description 




frame width 


to 


Number of elements in a character plus the gap. 


5 


threshold 


.70 


Ratio of the width of the widest bar (space) in a character to 




ratio 




the wide/narrow decision point. 




min element 


1.5 


lower limit on the ratio of the width of the widest bar (sd&cq) 




ratio 




to the narrowest bar (space) in a character. 




max element 


5.0 


upper limit on the ratio of the width of the widest bar (space) 


10 


ratio 




to the narrowest bar fsDace) in a character 




max narrow 


3.0 


max ratio of the narrowest bar in a character to the narmwast 




element ratio 




soace or vice versa 




max char 


1.25 


max ratio of the sum of the elements in the current character 




ratio 




to last char width, not including the intercharacter gap. 


75 


min char 


.80 


min ratio of the sum of the elements in the current character 




ratio 




to last char width, not including the intercharacter gap. 




max gap 


30 


max ratio of the sum of the elements in the current character 




ratio 




to the previous intercharacter gap. 




min gap ratio 


2.0 


min ratio of the sum of the elements in the current character 


20 






to the previous intercharacter gap. 




min margin 


1.0 


min ratio of the width of the white space before the label to 




ratio 




the sum of the width of the first four elements of the label. 



25 

4.2.3. Derivation of constants 



threshold ratio 

This is chosen to be near the midpoint of the difference between a narrow element and a wide element 
For an N:1 wide/narrow ratio the value giving the midpoint is t»(((N-1)/2) + 1)/N. For N»3 t».6666; N*2.5 
t = .7000; N=*2 t = .75Q0. We are using .7000. If an application only used a fixed ratio other than 2.5:1 this 
could be optimized to match. If using a simple integer ratio is helpful t- 23/32 corresponds to N»2.3. If 
labels are rejected due to a wide variation in the width of the narrow elements in the four characters $/+% 
(because of the test for all narrow elements) the ratio could be decreased. 



min element ratio 

This is set to one half of the 2:1 minimum spec value for the wide/narrow ratio. Again, it and other limits 
could be changed for a particular application. 



max element ratio 

This is set to 5.0 based on the ratio of the widest wide element to the narrowest narrow element when 
the spec tolerances are appiied to a nominal label. The actual worst case ratio is (3*.040 + .0K)/(.04O-.014)- 
=5.15. 



55 
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max narrow element ratio 

This is the only comparison other than total character width limiting the size of bars versus spaces. This 
is based on the-spec ratio of a narrow element plus the tolerance to a narrow element minus the tolerance, 
plus some more to allow for scanning errors and printing errors beyond spec. The limit per spec is: 
(.040 + .014)/(.040-.014)=2.08. Use 3.0. There Is no theoretical upper limit to this, but it shouldn't be set to a 
value larger than will be seen in a label that is otherwise intact enough to decode. 



10 max char ratio, min char ratio 

These are chosen based on the possible scanning spot velocity variation within a character and the 
scanning and printing error over the character elements. Use 1.25 and .80 until better data for the particular 
scanning device being used is available. 



15 



max gap ratio 



This is based on the ratio of the sum of the width of the elements in the widest legal character 
20 (excluding the gap) to the narrowest gap. In a label with a 3:1 wide/narrow ratio a character is 15 nominal 
elements wide. At .040 inch nominal element size the minimum gap is .040-.014 or .85 nominal. This gives 
a ratio of 15/.65=*23. Use 30 to allow for out of spec gap widths. 



25 min gap ratio 

This is based on the ratio of the sum the width of the of the elements the narrowest legal character 
(excluding the gap) to the widest gap. In a label with a 2:1 wide/narrow ratio a character is 12 nominal 
elements wide. The widest gap is 5.3 times a nominal element per spec, for a ratio fo 12/5.3=2:28. Use 2 
30 to allow some extra margin for error. 



min margin ratio 

This is a compromise between enforcing the rigorous spec limits and program efficiency. The minimum 
white space per spec is 10 times the nominal element size. The sum of the first four elements of the label 
for a 2:1 label is 5 times nominal; for a 3:1 label it is 8 times nominal. This results is a min margin of 5 to 8 
elements, which allows for out of spec labels and scanning error. 



4.2.3 General DecorJng method 

For efficiency the data buffer should be searched for a large white space Indicating a potential label 
margin. Then all decoders can start processing from this point, avoiding duplicating the search process. If 
« 46 the decoder doesn't find a good label starting at this position it will exit back to the calling program. Before 

the decoder is first called some of the status variables must be Initialized. They should be set as follows: 

, i : set to point to large white space. 

so Before any operation that looks at the data buffer, it Is assumed that proper care will be taken to make 
sure that data is available in the buffer. 

Each time the decoder is called it makes the comparison specified by min margin ratio. If this test 
passes, it looks for a forward or backward start character pattern and tests the elements in the character 
using threshold ratio, min element ratio, max element ratio, and max narrow element ratio. If this is ail ok, 

66 the following variables are set: 

continue decode : true 

forward : true or false, depending on the character found 
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last char width : set to the sum of the elements in the start character 

label string : set to empty 

i : set to the current value of i + frame width. 

5 Then it continues going through the label elements, appending characters to the label string until an 
error occurs, or the end character is found. For each character, the same checks made for a start character 
are applied (except the min margin ratio) plus the intercharacter checks for max char ratio, min char ratio, 
max gap ratio and min gap ratio, if the character found wasn't a stop character and ail tests passed, the 
status variables are updated: 

10 

last char width : set to the sum of the elements in the character just found 
label string : the character found is appended to label string 
i : set to the current value of i plus frame width 

75 If any test fails, continue decode is set false. 

If the character was a stop character, set continue decode false, and check for the trailing margin using 
min margin ratio. If ok, do any secondary processing such as reversing the label string to correct for a 
backward scan, evaluating an optional check character, expansion to full ASCII, label concatenation, etc. 
Then if everything is ok set found label true. 

20 The check for a good character pattern is done by finding the widest bar and space In the character, 
multiplying each by the threshold ratio, then comparing the result to each bar and space in the character to 
identity the wide and narrow elements. Note that this treats bars and spaces independently. The result is 
recorded as two binary patterns, one for bars and one for spaces, with ones indicating wide elements. Since 
it is possible for a Code 3 of 0 character pattern to have no wide bars (which would look like all wide bars to 

25 the above procedure), a separate test must be performed to detect this and correct the binary pattern. The 
two binary numbers are used to find table entries indicating if a good character was read and its value, ff a 
good character pattern was found, the smallest bar and space, and the total character width are determined. 
Tests for min and max element ratios are done independently for bars and spaces, taking into account the 
case of all narrow bars. The max narrow element ratio tests limits the difference between the width of bars 

30 and spaces. If all these tests are ok, a good character was found. 



4.3 Code 3 of 9 Decode Algorithm 

35 The decoding algorithm is given below. If any label integrity test fails, an exit from the algorithm will 
occur with the status variable found label set to false. Before calling the decoder set i to point to a possible 
margin (wide white space). Information in the scan data buffer is refered to as element(l) for the Ith element 
of the data buffer. During the decoding process i is assumed to point to a margin or intercharacter gap. 
Follow the steps as specified, starting at 4.3.1. 

40 4.3.1 Set found label falsa 

4.3.2 If less then frame width counts are available to be examined wait. ♦ frame width against the 
last buffer location.) 

4.3.3 if (element(i) < min margin ratio • (the sum of element(i + 1) through element(i+4)) quit (margin 
too small). 

46 4.3.4 Do the steps 4.3.11, 4.3.12, and 4.3.13 to look for a start pattern. If the bar pattern found is 

00110 and the space pattern found is 1000 set forward true, or if the bar pattern is 01100 and the space 
pattern is 0001 set forward false. If neither combination was found quit (no start char found). Otherwise do 
the procedure specified starting at step 4.3.17 to check the element widths In the character. If they don't 
pass the tests, quit (character elements out of limits). Otherwise set continue decode true, set last char 

50 width to the sum of the elements in the character computed at step 4.3.17, set label string to empty, and 
increment i by frame width. An apparent label start has been found. 

4.3.5 If less then frame width counts are available to be examined wait. (Check i + frame width 
against the last buffer location.) 

4.3.6 Do the procedure specified starting at step 4.3.1 1 to get the character pattern. If a legal pattern 
55 wasn't found set continue decode false and quit (no char found). Otherwise do the procedure starting at 

step 4.3.17 to check the element widths in the character. If they don't pass the tests, set continue decode 
false and quit (character elements out of limits). 
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4.3.7 Compute the ratio of the sum of the elements In the current character to last char width. If this 
ratio is greater than max char ratio or less than mln char ratio set continue decode false and quit. 

4.3.8 Compute the ratio of the sum of the elements in the current character to element(i). If this ratio 
is greater than max gap ratio or less than min gap ratio set continue decode false and quit 

5 4.3.9 If the current character found in step 4.3.6 is go to step 4.3.10. Otherwise if the length of 

label string is the maximum allowable label length set continue decode false and quit (label string overflow). 
Otherwise set last char width to the width of the current character, add frame width to i, and append the 
current character to label string. Go to step 4.3.5. 

4.3.10 Set continue decode false. If eiementfi +framewidth) < min margin ratio • (the sum of element- 
70 (I + 6) through element(i+9)) then quit Otherwise if forward is false reverse label string, and do any optional 

operations for check sum, full ASCII character set, or concatenation (per the referenced spec). If no errors 
are found set found label true and quit 

4.3.11 This section Is referenced from the main flow of the algorithm and you should return to the 
step which called this one when done here. Only the first three steps (11-13) will be done when looking for 

is a start character. The elements of the current character will be examined looking for a good character 
pattern. Find the widest bar and widest space in the nine elements i + 1 through i + 9. Multiply each of these 
by threshold ratio to find the wide/narrow breakpoint. 

4.3.12 Set a binary number which will represent the bar pattern to 0. Now for each of the elements 
i + 1, i+3, i + 5, i+7, and i+9, multiply bar pattern by 2, then increment It by 1 if the element under 

20 consideration is greater than the bar threshold calculated in step 4.3.11. When done if bar pattern equals 
11111 binary then set bar pattern to 0 (no real character has all wide bars, but some have all narrow, which 
requires this adjustment). 

4.3.13 Set a binary number which will represent the space pattern to 0. Now for each of the elements 
1+2, 1+4, i+6, and i+8, multiply space pattern by 2. then increment it by 1 if the element under 

25 consideration is greater than the space threshold calculated in step 4.3.1 1 . 

4.3.14 If bar pattern Isn't 0 go to 4.3.15. Otherwise set char pointer according to the value of space 
pattern: 



30 



epace pattern: 7 char pointer: 44 

II 43 

13 42 

14 41. 



If space pattern isn't one of these four values return; the test failed. Otherwise go to 4.3.16. 
35 4.3.1 5 Use the two look up tables 

spacelndex(0..15] ■ 0,3,2,0,1,0,0,0.4,0,0,0,0,0,0,0 
bar index[0..31] - 

0,0,0,7,0.4,10,0.0.2,9,0,6,0,0,0,0,1,8,0,5,0,0,0,3,0,0,0,0.0,0,0 

to determine what character is represented by the bars and spaces. If bar index[bar pattern] = 0 or space 
40 index[space pattern] » 0 then return; the test failed. Otherwise set char pointer to 
10* (space lndex[space pattern]-! ) + bar lndex[bar pattern]. 

This process takes advantage of the repetitive bar and space patterns used in the Code 3 of 9 characters. 

4.3.16 Use char pointer to select a forward character or backward character from these two lists of 44 
characters. For example, if char pointer is two and forward is false, pick the second character from the 

46 backward list, and so on. If forward is true, set current character to the correct character in the forward 
character list, otherwise use the backward character list. 
Forward characters: 

l234567890ABCDEFGHIJKLMNOPQRSTU\^ArXY2-. *$/+% 
Backward characters: 
50 AHGEDJCBIF1875403296U. -Y)CWV ZKRQONTMLSP% +/$ 
Return to the step in the main algorithm. 

4.3.17 This section is referenced from the main flow of the algorithm and you should return to the 
step which called this one when done here. This section checks the sizes of elements within a character for 
correct width ratios. It uses the values of widest space and bar and bar pattern which were found 

66 previously. Now find the narrowest bar and space, and the sum of the nine elements following i (which 
make up the current character). 

4.3.18 If the ratio of widest space to narrowest space is greater than max element ratio or less than 
min element ratio then return; the test failed. 
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4.3.19 If the ratio of widest bar to narrowest bar is greater than max element ratio then return; the test 

failed. 

4.3.20 If bar pattern is greater than 0 and the ratio of widest bar to narrowest bar is less than min 
element ratio then return; the test failed. 

5 4.3.21 If the ratio of narrowest bar t narrowest space is greater than max narrow element ratio then 

return; the test failed. 

4.3.22 If the ratio of narrowest space to narrowest bar is greater than max narrow element ratio then 
return; the test failed. 

4.3.23 Ok. return. 



Section 5: Interleaved 2 of 5 



5.1 General Description of Interleaved 2 of 5 

See the referenced document for details. This is a binary code using elements of two widths to 
20 represent numeric characters. Each frame (10 elements) contains 2 characters, the first being represented 
by the bar pattern, the second by the space pattern. Each character pattern contains two wide elements 
and three narrow elements. The ratio of wide elements to narrow elements may vary over the range of 2:1 
to 3:1 from one label to another, but is to be constant within a given label. There is no gap between 
adjacent characters. The actual scan direction is determined by the difference in the start and stop patterns 
25 at the beginning and ending of the label. The decoding process for each character treats the bars and 
spaces (and therefore each character) separately, in order to reduce errors due to systematic distortion of 
bar and space size. The number of data characters in a label is variable, but since characters are encoded 
in pairs, the number must be even. A fixed length is commonly used when decoding Interleaved 2 of 5, 
because of the relatively high probability that a partial scan of the label will yield seemingly valid data. 

30 

5.2 Overview of the algorithm 

Variables and constants used in the decoding process are defined below, followed by a brief description 
as of the decoding algorithm. A detailed description of the algorithm follows in the next section. 



5.2.1 Status variables 

40 Values of the status variables can be maintained globally to allow re-entrant use of the decoder. 





Variable 


Description 




name 






i 


pointer to the current element in the data buffer. This 
always points to a space when the decoder is called. 




last char 


sum of the element widths in the last character pair 




width 


decoded in the current label. 




label 


decoded characters as an ASCII string. 


50 


string 






forward 


boolean; true if decoding in forward direction. 




continue 


boolean; true while the buffer at the current element looks 




decode 


like good data. 




found 


boolean: true when a label has been put into label string. 


55 


label 






data 


array of numbers representing widths of the elements 




buffer 


scanned. They must alternate between bars and spaces. 
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■ 5.2.2 Decode constants 

Constant values are Identified In this section. The constants are referenced by name in the description 
of the algorithm 

5 



uonstani 


value 




name 






frame width 


10 


Number of elements in a character pair. 


threshold 


.2168 


Ratio of the wide/narrow decision point to the total width of the bars 


ratio 




(spaces) In the character pair. 


start stop 


1.5 


Ratio of the second bar to the first bar of a start or stop pattern for 


threshold 




determination of scan direction. 


min element 


1.5 


lower limit on the ratio of the width of the widest bar (space) to the 


ratio 




narrowest bar (space) in a character. 


max element 


5.0 


upper limit on the ratio of the widest bar (space) to the narrowest bar 


ratio 




(space) in a character pair. 


max narrow 


3.0 


max ratio of the narrowest bar in a ratio character to the narrowest 


element ratio 




space, or vice versa. 


max char 


1.25 


max ratio of the sum of the elements in the current character pair to last 


ratio 




char width. 


min char 


.80 


min ratio of the sum of the elements in the current character pair to last 


ratio 




char width. 


margin 


8 


Value used to multiply starting bar and space elements in label by to 


scaler 




make its width comparable to the width of the first (last) character pair. 


max margin 


2 


max ratio of the sum of elements in the current character pair to the 


char ratio 




width of the start (stop) pattern scaled by margin scaler. 


min margin 


3.0 


min ratio of the width of the white space before the label to the sum of 


ratio 




the width of the first two elements of the label. 



5.2.3 Derivation of constants 

35 



threshold ratio 

This is chosen to be near the midpoint of the difference between the ratio of a narrow element and a 
wide element to the total like element width in the character pair. For an N:1 wide/narrow ratio the value 
giving the midpoint is t=((N + 1)/2)/(3+2+N). For N=3 t=.2222; N=2.5 t=.2188; N = 2 t = .2143. We are 
using .2188 (7/32). If an application only used a fixed ratio other than 2.5:1 this could be optimized to 
match. 



start stop threshold 

This threshold determines whether the pattern , being examined is a start or stop pattern. A start pattern 
has two narrow bars, while a stop pattern has 1 narrow bar and 1 wide bar. This threshold is midway 
between the nominal narrow width (1) and the minimum wide/narrow ratio (2). 



min element ratio 

This is set to one half of the 2:1 minimum spec value for the wide/narrow ratio. Again, it and other limits 
could be changed for a particular application. 
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max element ratio 

This is set to 5.0 based on the ratio of the widest wide element to the narrowest narrow element when 
the spec tolerances are applied to a nominal label. The actual worst case ratio is (3 + .040 + .0165)/(.040- 
.01 65) = 5.8. 



max narrow element ratio 

This is the only comparison other than total character width limiting the size of bars versus spaces. This 
is based on the spec ratio of a narrow element plus the tolerance to a narrow element minus the tolerance, 
plus some more to allow for scanning errors and printing errors beyond spec. The limit per spec is: 
(.0404.0165)/(.040-.0165)=2.40. Use 3.0. There is no theoretical upper limit to this, but it shouldn't be set 
to a value larger than will be seen in a label that is otherwise intact enough to decode. 



max char ratio, min char ratio 

These are chosen based on the possible scanning spot velocity variation within a character pair and the 
scanning and printing error over the character elements. Use 1.25 and .80 until better data for the particular 
scanning device being used is available. 



min margin ratio 

This is a compromise between enforcing the rigorous spec limits and program efficiency. The minimum 
white space per spec is 10 times the nominal element size. The sum of the first two elements of the label is 
always 2X. The largest element in the label can be 3X. Midpoint between 10 and 3 is 6.5X. The threshold 
ratio used is 3.0 giving a minimum margin of 8X. 



5.2.4 General Decoding method 

For efficiency the data buffer should be searched for a large white space indicating a potential label 
margin. Then all decoders can start processing from this point, avoiding duplicating the search process. If 
the decoder doesn't find a good label starting at this position it will exit back to the calling program. Before 
the decoder is first called some of the status variables must be initialized. They should be set as follows: 

i : set to point to large white space. 

Before any operation that looks at the data buffer, it is assumed that proper care will be taken to make 
sure that data is available in the buffer. 

Each time the decoder is called it makes the comparison specified by min margin ratio. If this test 
passes, it looks for a forward or backward start pattern and tests the elements in the pattern using max 
narrow element ratio, min element ratio, and max element ratio. If this is all ok, the following variables are 
set: 

continue decode : true 

forward : true or false, depending on the pattern found 

last char width : set to the sum of the elements in the start pattern ' margin scaler 
label string : set to empty 

i : set to the current value of i + 4 (if forward is true, this points to the element before the first character 
pair in label. If forward is false, this points to last element of last character pair in label). 

Then it continues going through the label elements, appending characters to the label string until an 
error occurs, the end pattern is found, or no data is available. For each character, tests using threshold 
ratio, min element ratio, max element ratio, and max narrow element ratio are applied plus the intertharacter 
checks for max char ratio, and min char ratio. If the pair is the first found, use the looser max margin char 
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ratio as the intercharacter check. If all tests passed, the status variables are updated: 

last char width : set to the sum of the elements in the character pair just found 
label string : the character pair found is appended to label string 
5 i : set to the current value of i plus frame width 

If any test fails, continue decode is set false. 

If a character test failed, check to see if a stop pattern (or reverse start) pattern found, and valid trailing 
margin using m!n margin ratio, max element ratio, min element ratio, max like element ratio, max narrow 

10 element ratio, and max margin char ratio. If ok, do any secondary processing such as evaluating an optional 
check character. Then if everything is ok set found label true. 

A check for a good character pattern is done by summing the widths of all the bars (spaces) in the 
Character pair, multiplying the result by the threshold ratio, and using this value as the decision point for 
each bar (space) in the character pair. Note that this treats bars and spaces independently. The result is 

15 recorded as two binary patterns, one for bars and one for spaces, with ones indicating wide elements. The 
two binary numbers are used to find table entries indicating if a good character was read for each and what 
the character was. If a good character pattern for both characters in the pair was found, the smallest bar 
and space, and the total character width are determined. Tests for mln and max element ratios are done 
Independently for bars and spaces. The max narrow element ratio test limits the difference between the 

20 width of bars and spaces. If all these tests are ok. a good character pair was found. 



5.3 interleaved 2 of 5 Decode Algorithm 

25 The decoding algorithm is given below. If any label Integrity test fails, an exit from the algorithm will 
occur with the status variable continue decode set to false. Before calling the decoder set i to point to a 
possible margin (wide white space). Information in the scan data buffer is refered to as element(i) for the ith 
element of the data buffer. During the decoding process i is assumed to point to a margin, the space before 
the next character pair (forward decode), or the last space of the current character pair (backward decode). 

no Follow the steps as specified, starting at 5.3.1 . 
5.3.1 Set found label false. 

5.32 If less than frame width counts are available to be examined wait. (Check i + frame width 
against the last buffer location.) 

5.3.3 if element© < min margin ratio • (element(i + 1 ) + element(i + 2)), then quit (margin too small). 
35 5.3.4 Look for a valid start pattern: 

Check if element(i + 1)/element(i+2) > max narrow element ratio or element(i + 2)/element(i + l) > max 
narrow element ratio. If so, quit. If not, determine direction of scan: Check if 

element(i+3)/element(l + 1) > start stop threshold. If so, set forward to false, else set forward to true (start 
pattern has two narrow bars backward stop pattern has narrow bar followed by wide bar). If forward then 

40 check if elements + 2)/element(i + 4) > min element ratio or element(i + 4)/element(i + 2) > mln element ratio. 
If so. quit (two spaces in start pattern are not equal width). If forward also check if element(i + 1)/element- 
(i+3) > min element ratio. If so. quit (two bars are not the same width). If forward is false, the check if 
element(i+3)/element(i + 1) < max element ratio. If not quit Otherwise set continue decode true, set last 
char width to the sum of the elements i + 1 and 1+2 * margin scaler, set label string to empty, and 

45 Increment i by 4. An apparent label start has been found. 

5.3.5 If less than frame width counts are available to be examined (Check i + frame width against the 
last buffer location) wait. 

5.3.6 Do the procedure specified starting at step 5.3.11 to get the character pattern. If a tegal pattern 
wasn't found go to step 5.3.9 (no char found, check tor start/stop pattern). Otherwise do the procedure 

so starting at step 5.3.15 to check the element widths in the character. If they don't pass the tests, go to step 
5.3.9 (character elements out of limits, check for start/stop pattern). 

5.3.7 Compute the ratio of the sum of the elements in the current frame to last char width. If this is 
the first character pair (label strin is empty) then check if this ratio > max margin char ratio or (1/this ratio) > 
max margin char ratio. If it Is, then quit (no characters found). If not first time thru, then if this ratio is greater 

55 than max char ratio or less than min char ratio go to step 5.3.9. 
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5.3.8 If the length of label string is the maximum allowable label length set continue decode false and 
quit (label string overflow). Otherwise set last char width to the width of the current frame, add frame width 
to i, and append the decoded character pair to label string. (If forward is true, then append bar character + 
space character to end of label string. If forward is false, append space character + bar character to the 

5 end of the label string.) Go to step 5.3.5. 

5.3.9 Set continue decode to false. 

5.3.10 Check for possible end of label: 

If less than 4 counts available in the buffer then wait, (check i + 4 less than or equal to last buffer location). 
Otherwise, check if element(i + 4)/{eIement(l+2)+e!ement(l+3)) > mln margin ratio. If not, quit H so then 

io check if element(i+3)/element(i+2) > max narrow element ratio or element(l + 2yetementfl + 3) > max * 
narrow element ratio. If so, quit If not then check that (element(i+2)+ element(i+3)) * margin scaler / last 
char width is greater than max margin char ratio or less than 1/max margin char ratio. If so. then quit. If not 
then if forward is true, then check that element(i + 1)/element(i + 3) is greater than max element ratio or less t 
than min element ratio. If so, then quit If forward is false then check that 

75 elements + 1 )/element(l + 3) is greater then start stop ratio or less than 1/rntn element ratio. If so, then quit 
Also, if forward is false, check that element(i)/etement(i + 2) is greater than min element ratio or less than 
1/rnin element ratio. If so then quit Otherwise, if forward is false, then reverse order of label string. Then, do 
any optional operation for check sum. If no errors are found set found label true and quit 

5.3.1 1 This section is referenced from the main flow of the algorithm and should return to the step 
20 which caJled this one when done. If forward is true, elements i+1 to i+ frame width will be summed (bars 

and spaces separately). If forward is false, then elements I to i+ frame width-1 will be summed (bars and 
spaces separately). Find the widest bar, widest space, narrowest bar, and narrowest space in the 
corresponding 10 elements just examined. Multiply each of the sums (bar and space) by threshold ratio to 
find the wide/narrow breakpoint 
25 5.3.12 Set a binary number which will represent the bar pattern to 0. if forward is true, then use 

elements in order i + 1 f i+3, i + 5, i+7, i + 9. If forward is false, then use elements in order 1+9, i+7, 1 + 5, 
i + 3, i + 1. For each of the elements, multiply bar pattern by 2, and increment it by 1 if the element under 
consideration is greater than the bar threshold calculated in step 5.3.11. 

5.3.13 Set a binary number which will represent the space pattern to 0. If forward (8 true, then use 
30 elements in order i + 2, i+4 i + 6, i+8, i + 10. If forward Is false, then use elements in order i + 8, i+6, i + 4, 

i+2. L For each of the elements, multiply space pattern by 2, and increment it by 1 if the element under 
consideration is greater than the space threshold calculated in step 5.3.11. 

5.3.14 Use the binary number generated by the bar pattern to as a pointer to select a character from 
the following fist indexed at 0. for example, if the pattern had a value of 2, select the third element in the 

35 list. Repeat the above to select the space character using the space pattern. 

Character list 

XXX7X40XX29X6XXXX1 8X5XXX3XXXXXXX 

40 If the character selected for either bar or space pattern is X then indicate bad pattern to main algorithm, 
otherwise indicate good pattern. 
Return to the step in the main algorithm. 

5.3.15 This section is referenced from the main flow of the algorithm and should return to the step 
which called this one when done. This section checks.the sizes of elements within a character for correct 

45 width ratios. It uses the values of widest and narrowest space and bar and bar pattern which were found 
previously. Add bar pattern width to space pattern width to get total char width. 

5.3.16 If the ratio of widest space to narrowest space is greater than max element ratio or less than 
mln element ratio then return; the test failed. 

5.3.17 If the ratio of widest bar to narrowest bar is greater then max element ratio then return; the test t 

so failed. 

5.3.18 if the ratio of widest bar to narrowest bar is less than min element ratio then return; the test 

failed. 

5.3.19 If the ratio of narrowest bar to narrowest space is greater than max narrow element ratio then 
return; the test failed. 

55 5.320 If the ratio of narrowest space to narrowest bar is greater than max narrow element ratio then 

return; the test failed. 
5.3.21 Ok, return. 
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Section 6: Codabar 



6.1 General Description of Codabar 

See the referenced document for details. This is a binary code using elements of two widths to 
represent the ten digits and the six characters -s:/. + plus four start/stop characters denoted A,B,C,D. The 
20 character patterns each contain 7 elements. The wide/narrow ratio may range from 2:1 to 3:1 from label 
to label, but Is to be constant in a given label. Twelve of the characters contain 2 wide elements while the 
other 8 contain 3 wide elements. This results is two possible nominaJ character widths. Characters are 
separated by an intercharacter gap. A variable number of characters are allowed, but 32 is a common upper 
limit. The start/stop characters are considered part of the label Information, and in some implementations 
control concatenation. An optional check character is also defined. 



6.2 Overview of the algorithm 

20 Variables and constants used in the decoding process are defined below, followed by a brief description 
of the decoding algorithm. A detailed description of the algorithm follows in the next section. 



6.2.1 Status variables 

25 

Values of the status variables can be maintained globally to ailow re-entrant use of the decoder. 



Variable 


Description 


name 




i 


pointer to the current element in the data buffer. This always 




points to a space when the decoder is called. 


last char 


sum of the element widths in the last character decoded in the 


width 


current label. This does't include the intercharacter gap. 


label 


decoded characters as an ASCII string. 


string 




forward 


boolean; true if decoding in forward direction. 


continue 


boolean; true while the buffer at the current element looks like 


decode 


good data. 


found 


boolean; true when a label has been put into label string. 


label 




data 


array of numbers representing widths of the elements 


buffer 


scanned. They must alternate between bars and spaces. 



45 

* 



6.2-2 Decode constants 



Constant values are identified in this section. The constants are referenced by name In the description 
of the algorithm 



55 
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Constant 


Value 


Description 


name 






frame width 


8 


Number of elements in a character plus the gap. 


threshold 


.70 


Ratio of the width of the widest bar fsnaca) in a character to 


ratio 




the wide/narrow decision point. 


min s lament 


1.5 


lower limit on the ratio of the width of the widest bar fSD&ce) 


ratio 




to the narrowest bar (space) in a character. 


may Rlfimfint 


5.0 


uoner limit on the ratio of the width of the widest bar ( soared 

u^poi mi iii vn uiv iflUv vi ii iv «tuui vi uiv niuvoi iam \w^vvv/ 






to the narrowest bar fsoace) in a character 


may narrow 


3 0 


may ratio of the narrowest bar in a character to the narrowest 


element ratio 




space, or vice versa. 


max char 


1.25 


max ratio of the sum of the elements In the current character 


ratio 




to last char width, not including the intercharacter gap. 


min char 


.80 


min ratio of the sum of the elements in the current character 


ratio 




to last char width, not including the intercharacter gap. 


max gap 


30 | 


max ratio of the sum of the elements in the current character 


ratio 




to the previous intercharacter gap. 


min gap ratio 


1.5 


min ratio of the sum of the elements in the current character 






to the previous intercharacter gap. 


min margin 


1.0 


min ratio of the width of the white space before the label to 


ratio 




the sum of the width of the first three elements of the label. 



25 

6.2.3 Derivation of constants 



threshold ratio 

This is chosen to be near the midpoint of the difference between a narrow element and a wide element. 
For a N:1 wide/narrow ratio the value giving the midpoint is t»((N-1)/2) + 1)*N. For N=3 t».6666; N*2.5 
t = .7000; N = 2 t = J500. We are using .7000. If a application only used a fixed ratio other than 2.5:1 this 
35 could be optimized to match. If labels are rejected due to a wide variation in the width of the narrow 
elements in the characters $/+% (because of the test for all narrow elements) the ratio could be decreased. 



min element ratio 

40 

This is set to one half of the 2:1 minimum spec value for the wide/narrow ratio. Again, it and other limits 
could be changed for a particular application. 



max element ratio 

This is set to 5.0 based on the ratio of the widest wide element to the narrowest narrow element when 
the spec tolerances are applied to a nominal label. The actual worst case ratio is (3'.040 + .009)/(.04f>.009)- 
=4.16. 

so 



max narrow element ratio 

This is the only comparison other than total character width limiting the size of bars versus spaces. This 
55 is based on the spec ratio of a narrow element plus the tolerance to a narrow element minus the tolerance, 
plus some more to allow for scanning errors and printing errors beyond spec. The limit per spec is 
(.040 + .009)/(.040-.009) = 1.58. Use 3.0. There is no theoretical upper limit to this, but it shouldn't be set to a 
value larger than will be seen in a label that is otherwise intact enough to decode. 
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max char ratio, min char ratio 



These are chosen based on the possible scanning spot velocity variation within a character and the 
scanning and printing error over the character elements. Character width may vary because of the data 
6 containing characters with 2 wide elements or 3 wide elements. At a 3:1 wide/narrow ratio this can result in 
characters containing 11 or 13 nominal elements. This causes a variation of 11/13 or 13/11 in character 
width before taking into account other sources of difference. Use 1.25 and .80 until better data for the 
particular scanning device being used is available. 

TO 

max gap ratio 

This is based on the ratio of the sum of the width of the elements in the widest legal character 
(excluding the gap) to the narrowest gap. In a label with a 3:1 wide/narrow ratio the widest character is 13 
T5 nominal elements wide. At .040 inch nominal element size the minimum gap Is .040-.009 or .78 nominal. 
This gives a ratio of 13/.78= 17. Use 30 to allow for out of spec gap widths. 



min gap ratio 

This is based on the ratio of the sum the width of the of the elements the narrowest legal character 
(excluding the gap) to the widest gap. In a label with a 2:1 wide/narrow ratio a narrow character is 9 nominal 
elements wide. The widest gap is 5.3 times a nominal element per spec, for a ratio of 9/5.3 = 1 .7. Use 1 .5 to 
allow some extra margin for error. 



min margin ratio 



This is a compromise between enforcing the rigorous spec limits and program efficiency. The minimum 
ao white space per spec is 10 times the nominal element size. The sum of the first three elements of the label 
for a forward label can be 3 to 5 times nominal; for a backward label it can be 4 to 7 times nominal. This 
results is a min margin of 3 to 7 nominal elements, which allows for out of spec labels and scanning error. 



as 6.2.4 General Decoding method 



For efficiency the data buffer should be searched for a large white space Indicating a potential label 
margin. Then all decoders can start processing from this point, avoiding duplicating the search process. If 
the decoder doesn't find a good label starting at this position it will exit back to the calling program. Before 
40 the decoder is first called some of the status variables must be initialized. They should be set as follows: 



i : set to point to large white space. 



5Q. 



Before any operation that looks at the data buffer, it is assumed that proper care will be taken to make 
sure that data Is available in the buffer. 

Each time the decoder is called it makes the comparison specified by min margin ratio. If this test 
passes, it looks for a forward or backward start character pattern (A.B,C or D) and tests the elements in the 
character using threshold ratio, min element ratio, max element ratio, and max narrow element ratio. If this 
is all ok, the following variables are set 

continue decode : true 

forward : true or false, depending on the character found 

last char width : set to the sum of the elements in the start character 

label string : set to empty 

i : set to the current value of i + frame width. 

. Then it continues going through the label elements, appending characters to the label string until an 
error occurs, the end (A.B.C or D) character is found, or no data is available. For each character, the same 
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checks made for a start character are applied (except the min margin ratio) plus the intercharacter checks 
for max char ratio, min char ratio, max gap ratio and min gap ratio. If the character found wasn't a stop 
character and alt tests passed, the status variables are updated: 

5 (ast char width : set to the sum of the elements in the character just found 
label string : the character found is appended to label string 
i : set to the current value of i plus frame width 

If any test fails, continue decode is set faJse. 
to If the character was a stop character, set continue decode false, and check for the trailing margin using 
min margin ratio. If ok, do any secondary processing such as reversing the label string to correct for a 
backward scan, evaluating an optional check character, label concatenation, etc. Then if everything is ok set 
found label true. 

The check for a good character pattern is done by finding the widest bar and space in the character, 
ts multiplying each by the threshold ratio, then comparing the result to each bar and space in the character to 
identify the wide and narrow elements. Note that this treats bars and spaces independently. Hie result is 
recorded as a binary pattern, one bit per bar or space, with ones Indicating wide elements. Since it is 
possible for a Codabar character pattern to have no wide spaces (which would look like all wide spaces to 
the above procedure), a separate test must be performed to detect and correct the binary pattern. The 
20 binary number resulting from this process is used to select a table entry indicating if a good character was 
read and what the character was. If a good character pattern was found, the smallest bar and space, and 
the total character width are determined. Tests for min and max element ratios are done Independently for 
bars and spaces, taking into account the case of all narrow bars being found. The max narrow element ratio 
test limits the difference between the width of bars and spaces. If all these tests are ok, a good character 
25 was found. 



6.3 Codabar Decode Algorithm 

30 The decoding algorithm is given below. If any label integrity test fails, an exit from the algorithm will 
occur with the status variable continue decode set to false. Before calling the decoder set i to a possible 
margin (wide white space). Information in the scan data buffer is refered to as eiemerrt(i) for ith element of 
the data buffer. During the decoding process i is assumed to point to a margin or intercharacter gap. Follow 
the steps as specified, starting at 6.3.1. 

3s 6.3.1 Set found label false. 

6.3.2 tf less then frame width counts are available to be examined wait. (Check i + frame width 
against the last buffer location.) 

• 6.3.3 If min margin ratio > (element(i) / (the sum of element(i + 1) through element(i +3)) quit (margin 
too small). 

40 6.3.4 Use the procedure at starting at step 6.3.11 to check for a character. If forward character is A, 

B. C, or D set forward true. If backward character is A, B, C, or D set forward false. If neither was found quit 
(no start char found). Otherwise do the procedure specified starting at step 6.3.16 to check the element 
widths in the character, if they don't pass the tests, quit (character elements out of limits). Otherwise set 
continue decode true, set last char width to the sum of the elements in the character computed at step 

4$ 6.3.16, set label string to emtpy, and increment i by frame width. An apparent label start has been found. 

6.3.5 If less then frame width counts are available to be examined wait. (Check i + frame width 
against the last buffer location. 

6.3.6 Do the procedure specified starting at step 6.3.11 to get the character pattern. If a legal pattern 
wasn't found set continue decode false and quit (no char found). Otherwise do the procedure starting at 

so step 6.3. 16 to check the element widths in the character. If they don't pass the tests, set continue decode 
false and quit (character elements out of limits). 

6.3.7 Compute the ratio of the sum of the elements in the current character to last char width. If this 
ratio is greater than max char ratio or less than min char ratio set continue decode false and quit. 

6.3.8 Compute the ratio of the sum of the elements in the current character to element(i). If this ratio 
55 is greater than max gap ratio or less than min gap ratio set continue decode false and quit. 
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6.3.9 If forward is true then the current charcter is the forward character found In step 6.3.6, otherwise 
the current character is the backward character. If the current character Is A, B, C, or D go to 6.3.10. 
Otherwise if the length of label string is the maximum allowable 'label length set continue decode false and 
quit (label string overflow). Otherwise set last char width to the width of the current character, add frame 

5 width to I, and append the current character to label string. Go to step 6.3.5. 

6.3.10 Set continue decode false. If mln margin ratio > e!ement(i +framewidth) / (the sum of element- 
(I + 5) through element(i + 7)) then quit. Otherwise if forward is false reverse label string, and do any optional 
operations for check sum or concatenation (per the referenced spec). If no errors are found set found label 
true and quit 

w 6.3.1 1 This section is referenced from the main flow of the algorithm and you should return to the 

step which called this one when done here. The elements of the current character will be examined looking 
for a good character pattern. Rnd the widest bar and widest space in the seven elements i + 1 through I + 7. 
Multiply each of these by threshold ratio to find the wide/narrow breakpoint. 

6.3.12 Set a binary number which will represent the wide/narrow pattern to 0. For each of the 
T5 elements 1 + 1, through i+7 multiply pattern by 2, and increment it by 1 if the element under consideration 

Is greater than the bar or space threshold calculated in step 4.3.11 (use the bar or space threshold as 
appropriate). 

6.3.13 If no narrow space was found set pattern to pattern and 1010101. This will correct for the case 
of no wide spaces in a character looking appearing to be all wide spaces because of the method used. 

20 6.3.14 Now determine if pattern is one of the allowable values. One way to do this is to use a table 

having 128 entries to check for a valid pattern and convert it to an index to a character string, ff the entry in 
pattern table (see below) is 0 for the pattern found, the test failed; return. Otherwise set char pointer to the 
value found in pattern table. 

25 pattern_t«ble iarrtyCD. . 1273 * 
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o. 


0, 


0, 


o. 


o, 


(80) 


0, 


21, 


o, 


o, 


22, 


o. 
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6.3.15 Use char pointer to select forward character and backward character from these two lists of 24 
45 characters. For example, if char pointer is two, pick the second character from each list, and so on. 

Forward characters: 012C-D4+$A467BX8X5:9X/.3X 
Backward characters: 389X$X7.-X54XA1D6/2B:+0C 
Return to the step in the main algorithm. 

6.3.16 This section is referenced from the main flow of the algorithm and you should return to the 
50 step which called this one when done here. This section checks the sizes of elements within a character for 

correct width ratios. It uses the values of widest space and bar and bar pattern which were found 
previously. Now find the narrowest bar and space, and the sum of the seven elements following i (which 
make up the current character). 

6.3.17 If the ratio of widest bar to narrowest bar Is greater than max element ratio or less than min 
5S element ratio then return; the test failed. 

6.3.18 rf the ratio of widest space to narrowest space is greater than max element ratio then return; 
the test failed. 
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6.3.19 If wide spaces were found and the ratio of widest space to narrowest space is less than min 
element ratio then return; the test failed. 

6.3.20 If the ratio of narrowest bar to narrowest space is greater than max narrow element ratio then 
return; the test failed. 

6.3.21 If the ratio of narrowest space to narrowest bar is greater than max narrow element ratio then 
return; the test failed. 

6.3.22 Ok. return. 



w Section 7: Code 93 



75 7.1 General Description of Code 93 

See the referenced document for details. This is a code using characters made up of six elements per 
character with four different width elements used. The narrowest element is defined as being one module 
wide, with the others being two, three and four modules wide. A character is nine modules wide. There are 
20 48 character patterns defined, with some being used as control characters in a system for encoding the full 
ASCII character set Each label contains a variable number of data characters and two mandatory check 
characters. A method for concatenating labels is also defined. The scan direction is recognized by looking 
for a forward or backward start character. The code is designed for like edge to like edge decoding. Two 
term sums are computed and used to decode the characters. 



7.2 Overview of the Algorithm 

Variables and constants used in the decoding process are defined below, followed by a brief description 
30 of the decoding algorithm. A detailed description of the algorithm follows in the next section. 



7.2.1 Status variables 

35 Values of the status variables can be maintained globally to allow re-entrant use of the decoder. 





Variable 


Description 




name 




40 


i 


pointer to the current element in the data buffer. This 
always points to a space when the decoder is called. 




last char 


sum of the element widths in the last character decoded in 




width 


the current label. 




label 


decoded characters as an ASCII string. 


45 


string 






forward 


boolean; true if decoding in forward direction. 




continue 


boolean; true while the buffer at the current element looks 




decode 


like good data. 




found 


boolean; true when a label has been put into label string. 


SO 


label 




data 


array of numbers representing widths of the elements 




buffer 


scanned. They must alternate between bars and spaces. 



55 
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722 Decode constants 

Constant values are identified in this section. The constants are referenced by name in the description 
of the algorithm. 

5 



10 



16 



20 



30 



Const ml name V« lve 

frame width 6 

threshold rmlio X 2.5/9 

threshold ratio 2 - 3.5/9 
threshold ratio 3 4.5/9 

max element ratio 6-0 



■ax char ratio 1.25 



■in char ratio .80 



Dej^rJLpJL*jOJL 

Number of element* in a character. 

Used to determine value ol two tern sums. 



upper lisit on the ratio of the width of 
the widest bar (apace) to the narrowest 
bar (space) in a character. 

max ratio of the bub of the elements in 
the current character to last char width, 
not including the inter character gap. 

sin ratio of the bus of the elements in 
the current character to last char width, 
not including the intercharacter gap. 



sin sargin ratio 1.0 ntn r.tio of the width of the white space 



stop element ratio 2.0 



before the label to three Usee the sua of 
the width of the first two elements of the 
label . 

max value of either the ratio of the width 
of the last bar of a stop character to the 
next to the lest bar, or the inverse of 
that ratio. 



« 7.2.3 Derivation of constants 



threshold ratio 1 

This is chosen to be near the midpoint of the difference between a two term sum of two one module 
elements (2 modules total) and a two term sum of a one module element and a two module element(3 
modules total). It is normalized to the 9 module character size. 



threshold ratio 2 

Similar to threshold 1, it is the breakpoint between 3 module and 4 module two term sums. 



55 

threshold ratio 3 



This is the breakpoint between 4 module and 5 module two term sums. 
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max char ratio, min char ratio 

These are chosen based on the possible scanning spot velocity variation within a character and the 
scanning and printing error over the character elements. Use 1.25 and 0.80 until better data for the 
particular scanning device being used is available. 



min margin ratio 

This is a compromise between enforcing the rigorous spec limits and program efficiency. The minimum 
white space per spec is 10 times the nominal module size. The sum of the first two elements of a forward 
or backward label is 2 nominal modules. Checking for a margin of at least three times this results is a min 
margin of 0 nominal modules, which allows for out of spec labels and scanning error. 



stop element ratio 

This is not critical, and is used to check that the width of the last bar is similar to the width of the other 
elements in the stop character. 



7.2.4 General Decoding method 

For efficiency the data buffer should be searched for a large white space indicating a potential label 
margin. Then ail decoders can start processing from this point avoiding duplicating the search process. If 
the decoder doesn't find a good label starting at this position it will exit back to the calling program. Before 
the decoder is first called some of the status variables must be initialized. They should be set as follows: 

i : set to point to targe white space. 

Before any operation that looks at the data buffer, it is assumed that proper care will be taken to make 
sure that data is available in the buffer. 

Each time the decoder is called it makes the comparison specified by min margin ratio. If this test 
passes, it looks for a forward or backward start character pattern and tests the elements in the character 
using the threshold ratios and max element ratio, if this is all ok, the following variables are set: 

continue decode : true 

forward : true or false, depending on the character found 

last char width : set to the sum of the elements in the start character 

label string : set to empty 

i : set to the current value of i + frame width. 

Then it continues going through the label elements, appending characters to the label string until an 
error occurs, the end character is found, or no data is available. For each character, the same checks made 
for a start character are applied (except the min margin ratio) plus the intercharacter checks for max ch8r 
ratio and min char ratio. If the character found wasn't a stop character and ail tests passed, the status 
variables are updated: 

last char width : set to the sum of the elements in the character just found 
label string : the character found is appended to label string 
i : set to the current value of i plus frame width 

If any test fails, continue decode is set false. 

If the character was a stop character, set continue decode false, and check for the trailing margin using 
min margin ratio. If ok, do any secondary processing such as reversing the label string to correct for a 
backward scan, evaluating the two check characters, optional label concatenation, etc. Then if everything is 
ok set found label true. 

The check for a good character pattern is done by finding the sum of the elements in the character 
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(total width), then computing three threshold values by multiplying each of the three threshold ratio values 
by the total width. Then four two term sums are calculated, and a determination made of whether each sum 
is 2,3,4, or 5 modules in size. The resulting four digits are used to look up the proper character code. If the 
label is being scanned backward the two term sums are calculated from the other end of the character, 
6 resulting in the same set of sums. Provision must be made to find a forward or backward start character In 
order to identify direction initially, but all other characters will always have a single representation. If a good 
character is found the max element ratio is checked. This requires finding the narrowest and widest bars 
and spaces. If this test is ok a the character is ok. 

70 

7.3 Code 93 Decode Algorithm 

The decoding algorithm is given below. If any label integrity test fails, an exit from the algorithm will 
occur with the status variable continue decode set to false. Before calling the decoder set i to a possible 
rs margin (vide white space). Information in the scan data buffer is refered to as element© for the ith element 
of the data buffer. During the decoding process i Is assumed to point to a margin or space. Follow the steps 
as specified, starting at 7.3.1. 
7.3.1 Set found label false. 

7.35 If less then frame width counts are available to be examined wait. (Check i + frame width 
20 against the last buffer location.) 

7.3.3 If min margin ratio > (element© / 3*(the sum of elementfl + 1) and elements + 2)) quit (margin 

too small). 

7.3.4 Set forward true. Use the procedure at starting at step 7.3.12 determine the hex value 
representing the character. If pattern is 2225 the label really is forward. If pattern Is 2552 then set forward 

25 faise. If neither was found quit (no start char found). » forward is false and element0 + iyelement(i+3) > 
stop element ratio, or element0+3)/element(i + 1) > stop element ratio, quit. Otherwise do the procedure 
specified starting at step 7.3.17 to check the element widths In the character. If they don't pass the tests, 
quit (character elements out of limits). Otherwise set continue decode true, set last char width to the sum of 
the elements in the character computed at step 7.3.12, set label string to empty, and increment i by frame 

30 width. An apparent label start has been found. 

7.3.5 If less then 8 counts are available to be examined wait. (Check i + frame width against the last 
buffer location.) 

7.3.6 Do the procedure specified starting at step 7.3.12 to get the character pattern. Look up the 
character corresponding to the pattern found. A fast method should be used. A decision tree which 

35 branches at each digit for the first one or two digits and has the character values at the leaves can be used. 
The following table gives the pattern to character conversion. The start and special character patterns are 
denoted by otherwise unused characters. (The characters actually sent from the decoder are chosen In a 
later step). 

40 
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2222: char 


* '7' 




3324 : char 








2223: char 






3332 t char 


• '0* 






2225: char 


* ' ( 9 f wrf 


at art 


3333 i char 


" '5* 






2233: char 






*!O^Jl - _ k. _ , 

3334 : char 


■ * ! • 


*t char 


5 


2234: char 


* *H* 




JJ4J : char 


_ an* 






2244: char 






33*14 » cnar 








2245: char < 


■ *M # 
n 




3432: char 


■ 'J* 






2255: char i 


t '3* 
■ J 




3433: char 








2332 1 char* i 


w 




3443 : char 1 


» '4/ 


*• char 


TV 


2333* char i 


. *U# 

w 




3542: char 1 






2334* char i 

*J J « » Willi ■ 


* / 




j*j*ii. _l 

4222: char 1 


* * 
• 






234*3* rh«r ■ 


1 f II * 




4223: char 1 


i *#• 


*/ char 




2344 • rKir ■ 






4233: char « 








cnar ■ 






4322 i char ■ 






rs 


2443: char « 






4323: char - 


« -o* 






2552: char * 


* ) * bkvd 


start 


JT^^ ■ 4* It* am. 4a* ai 

njMi cnar * 


§ a • 


X char 




3222: char - 


'A' 




4333: char * 








3223: char » 


'S' 




4422: char « 


♦o # 






3224: char ■ 


•r 




4423 t char > 






20 


3233; char « 






4432s char * 


'V* 






3234: char * 


•r 




4433: char » 


•a* 






3244: char * 


r c* 




4532: char « 








3322: char * 


'4* 




5322: char ■ 


'f 




25 


3323: char * 


•0' 




5422: char * 
5522: char » 


*F # 
# 9' 





7.37 If a legal pattern wasn't found set continue decode false and quit (no char found). Otherwise do 
the procedure starting at step 7.3.17 to check the element widths in the character. If they don't pass the* 
30 tests, set continue decode false and quit (character elements out of limits). 

7.3.8 Compute the ratio of the sum of the elements in the current character to last char width. If this 
ratio is greater than max char ratio or less than min char ratio set continue decode false and quit. 

7.3.9 If current character is start/stop then go to 7.3.11. 

7.3.10 If the length of label string is the maximum allowable label length set continue decode false 
as and quit (label string overflow). Otherwise set last char width to the width of the current character, add 

frame width to i, and append the current character to label string. Go to step 7.3.5. 

7.3.11 Set continue decode false. If min margin ratio > element(i+8) / 3'(the sum of elements + 6) 
plus element(i+7)) then quit. If forward is true then quit if elements + 7)/element(i + 5) > stop element ratio, 
or if element(i+5)/element(i+7) > stop element ratio. Otherwise if forward is false reverse label string, and 

40 do the check sum calculations. If ok search through the label for any shift characters and replace the shift 

character and the following character with the correct character according to the table In the referenced 

spec. The shift characters are represented in the label string as follows: 

circle $ is a ! 

circle + is a & 
45 circle % is an @ 

circle / is a * . 

Next do any optional operations such as concatenation (per the referenced spec), if no errors are found set 

found label true. 

Quite. 

so 7.3.12 This section is referenced from the main flow of the algorithm and you should return to the 

step which called this one when done here. The elements of the current character will be examined looking 
for a good character pattern, if forward is true find the total character width by adding element(i + 1) through 
elements +6), otherwise) by adding elements + 2) through elements + 7). Now if forward Is true go to step 
7.3.13, otherwise go 7.3.14. 

55 7.3.13 Calculate four two term sums T1 through T4 as follows. 

T1 = element(i + 1) + element(i + 2) 
T2 » elements + 2) + element(i + 3) 
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T3 = element(i + 3) + element(i + 4) 
T4 = element(i + 4) + elementfl + 5) 
Go to 7.3.15. 

7.3.14 Calculate four two term sums T1 through T4 as follows. 
s T1 = element(i + 6) + element(i+7) 

T2 ■ elements + 5) + element(i+6) 
T3 = element(i + 4) + elements + 5) 
T4 = element(i + 3) + element(i+4) 

7.3.15 Compute three threshold values thresh 1, thresh 2, thresh 3 by multiplying the total character 
10 width times threshold ratio 1 through threshold ratio 3. 

7.3.16 Compute the four digits D1 through D4 of the pattern by doing the following for each sum T1 
through T4, For J 1 through 4 do the following: 

Dj = 2 if Tj < thresh 1. 
Dj = 3 if thresh 1 <= Tj< thresh 2. 
75 Dj = 4 if thresh 2 < =Tj < thresh 3. 
Dj = 5 if thresh 3<= Tj. 

Then pattern is equal to D4 + 16*D3 + 256"D2 + 4086'D1 {do this by shifting and adding as they are 
computed). Return to the step In the main algorithm. 

7.3.17 This section Is referenced from the main flow of the algorithm and you should return to the 
20 step which called this one when done here. This section checks the sizes of elements within a character for 

correct width ratios. Find the widest and narrowest bar and space. 

7.3.18 If the ratio of widest bar to narrowest bar is greater than max element ratio then return; the test 

failed. 

7.3.19 If the ratio of widest space to narrowest space Is greater than max element ratio then return; 
25 the test failed. 

7.3.20. Ok, return. 

Section 8: Code 128 

30 



8.1 General Description of Code 128 

35 

See the referenced document for details. This Is a code using characters made up of six elements per 
character with four different width elements used. The narrowest element is defined as being one module 
wide, with the others being two, three and four modules wide. A character Is eleven modules wide. The bars 
in a character are made up of an even number of modules (even parity). Character parity is checked in the 

40 decoding process. There are 107 character patterns defined, including three different start characters, one 
stop character, several to select which of the three different pattern to character translations to use (code A, 
B, or C), and four decoder cc functions. The choice of start character determines which pattern to character 
translation Is used initially. Each label contains a variable number of data characters and a mandatory check 
character. A method for concatenating labels is also defined. The scan direction is recognized by looking 

45 for a forward or backward start or stop character. The code is designed for like edge to like edge decoding. 
Two term sums are computed and used to decode the characters. 



8.2 Overview of the Algorithm 

Variables and constants used in the decoding process are defined below, followed by a brief description 
of the decoding algorithm. A detailed description of the algorithm follows in the next section. 



55 8.2.1 Status variables 

Values of the status variables can be maintained globally to allow re-entrant use of the decoder. 
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Variable 
name 


Description 




i 


pointer to the current element in the data buffer. This 


5 




always points to a space when the decoder is called. 




last char 


sum of the element widths in the last character decoded in 




width 


the current label. 




label 


decoded characters as an ASCII string. 




string 




70 


forward 


boolean; true if decoding in forward direction. 




continue 


boolean; true while the buffer at the current element looks 




decode 


like good data. 




found 


boolean; true when a label has been put into label string. 




label 




75 


data 


array of numbers representing widths of the elements 




buffer 


scanned. They must alternate between bars and spaces. 



20 8.2.2 Decode constants 

Constant values are identified in this section. The constants are referenced by name in the description j 
of the algorithm 

! 

1C 



Constant 


Value 


Description 


name 






frame 
width 


6 


Number of elements in a character. 


threshold 


2.5/11 


Used to determine value of two term sums. 


ratio 1 






threshold 


3.5/11 




ratio 2 






threshold 


4.5/11 




ratio 3 






threshold 


5.5/11 




ratio 4 






threshold 


6.5/11 




ratio 5 






max 


8.0 


upper limit on the ratio of the width of the widest bar (space) to 


element 




the narrowest bar (space) in a character. 


ratio 






max char 


1.25 


max ratio of the sum of the elements in the current character to 


ratio 




last char width, not including the intercharacter gap. 


min char 


.80 


min ratio of the sum of the elements in the current character to 


ratio 




last char width, not including the intercharacter gap. 


min 


1.0 


min ratio of the width of the white space before the label to two 


margin 




times the sum of the width of the first two elements of the label. 


ratio 






stop 


2.0 


max value of either the ratio of the last bar of a stop char to the 


element 




first bar, or the inverse of that ratio. 


ratio 







8.2.3 Derivation of constants 
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threshold ratio 1 

This Is chosen to be near the midpoint of the difference between a two term sum of two one module 
elements (2 modules total) and a two term sum of a one module element and a two module element(3 
q modules total). It is normalized to the 11 module character size. 



threshold ratio 2 

to Similar to threshold 1 . it is the breakpoint between 3 module and 4 module two term sums. 



threshold ratio 3 

re This is the breakpoint between 4 module and 5 module two term sums. 



threshold ratio 4 

20 This is the breakpoint between 5 module and 6 module two term sums. 



threshold ratio 5 

25 This is the breakpoint between 6 module and 7 module two term sums. 



max char ratio, min char ratio 

ao These are chosen based on the possible scanning spot velocity variation within a character and the 
scanning and printing error over the character elements- Use 125 and .80 until better data for the particular 
scanning device being used is available. 



35 min margin ratio 

This is a compromise between enforcing the rigerous spec limits and program efficiency. The minimum 
white space per spec is 10 times the nominal module size. The sum of the first two elements of a forward 
or backward label is 3 nominal modules. Checking for a margin of at least two times this results is a min 
40 margin of 6 nominal modules, which allows for out of spec labels and scanning error. 



stop element ratio 

This is not critical, and is used to check that the width of the last bar is similar to the width of the other 
elements in the stop character. 



8.2.4 General decoding method 

SB 

For efficiency the data buffer should be searched for a large white space indicating a potential label 
margin. Then ail decoders can start processing from this point, avoiding duplicating the search process. If 
the decoder doesn't find a good label starting at this position it will exit back to the calling program. Before 
the decoder is first called some of the status variables must be initialized. They should be set as follows: 

55 

i : set to point to large white space. 

Before any operation that looks at the data buffer, it is assumed that proper care will be taken to make 
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sure that data is available in the buffer. 

Each time the decoder is called it makes the comparison specified by min margin ratio, If this test 
passes, it looks for a forward or backward start or stop character pattern and tests the elements in the 
character using the threshold ratios and max element ratio. If this is all ok, the following variable are set: 

s 

continue decode : true 

forward : true or false, depending on the character found 

last char width : set to the sum of the elements in the start character 

label string : set to empty 
io i : set to the current value of i + frame width. 

All processing to translate code sets A, B, and C takes place after the complete label has been found. 
Next it continues going through the label elements, appending characters to the label string until an 

error occurs, the end character is found, or no data is available. For each character, the same checks made 

for a start character are applied (except the min margin ratio) plus the intercharacter checks for ratio and 
ts min char ratio. W the character found wasn't a stop or backward start character and all tests passed, the 

status variables are updated. 

last char width : set to the sum of the elements in the character just found 
label string : the character found is appended to label string 
20 i : set to the current value of i plus frame width 

If any test fails, continue decode is set false. 

If the character was a stop or backward starter, set continue decode false, and check for the trailing 
margin using min margin ratio. If ok, do any secondary processing such as reversing the label string to 

25 correct for a backward scan, evaluating the two check characters, optional label concatenation, etc. Then if 
everything is ok set found label true. 

The check for a good character pattern is done by finding the sum of the elements in the character 
(total width), then computing five threshold values by multiplying each of the five threshold ratio values by 
the total width. Then four two term sums are calculated, and a determination made of whether each sum is 

so 2,3,4.5,6 or 7 modules In size. The resulting four digits are used to look up the proper character code. If the 
label is being scanned backward the two term sums are calculated from the other end of the character, 
resulting in the same set of sums. Provision must be made to find forward start characters and forward or 
backward stop characters in order to identify direction initially, but all other characters will always have a 
single representation. If a good character is found the max element ratio is checked. This requires finding 

,35 the narrowest and widest bars and spaces. If this test is ok a the character is ok. 



8.3 Code 128 Decode Algorithm 

40 The decoding algorithm is given below. If any label integrity test fails, an exit from the algorithm will 
occur with the status variable continue decode set to false. Before calling the decoder set I to a possible 
margin (wide white space). Information in the scan data buffer is refered to as elementfl) for the Ith element 
of the data buffer. During the decoding process i is assumed to point to a margin or space. Follow the steps 
as specified, starting at 8.3.1. 

8.3.1 Set found label false. 

8.3.2 If less then frame width counts are available to be examined wait. (Check I ♦ frame width 
against the last buffer location.) 

8.3.3 if min margin ratio > (element(i) / 2'(the sum of elementfl + 1) and elementfl + 2)) quit (margin 
too small). 

50 8.3.4 Set forward true. Use the procedure at starting at step 8.3.1 1 to determine the hex value 

representing the character. If pattern is any of the following set label string as shown: 



pattern: 3255 label string: character 103 (start A) 

3233 104 (start B) 

3235 105 (start C) 

3224 107 (backvard stop) 

If pattern was backward stop set forward false. If none of the four patterns were found quit. Check the 



28 



EP 0 304 146 A2 



character parity as specified in step 8.3.7. if bad quit (parity error). Otherwise do the procedure specified 
starting at step 8.3.16 to check the element widths in the character. If they don't pass the tests, quit 
(character elements out of limits). Otherwise if forward faJse and e!ement(i + 7)/element(i + 1) > stop element 
ratio, or if forward false and elements + 1)/element(i + 7) > stop element ratio, quit. Otherwise set continue 
5 decode true, set last char width to the sum of the elements in the character computed at step 8.3.11, and 
increment I by frame width. An apparent label start has been found. 

8.3.5 If less then 8 counts are available to be examined wait (Check i + frame width against the last 
buffer location.) 

8.3.8 Do the procedure specified starting at step 8.3.11 to get the character pattern. Look up the 
to character corresponding to the pattern found. A fast method should be used. A decision tree which 
branches at each digit for the first one or two digits and has the character values at the leaves can be used. 
The following table gives the pattern to character conversion. The start and special character patterns are 
denoted by otherwise unused characters. (The characters actually sent from the decoder are chosen in a 
later step. 
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55 8.3.7 If a legal pattern wasn't found set continue decode false and quit (no char found). Otherwise 

check for a parity error by using the character value just found as an index into the following table to get a 
value V. Then II (V+1.75)/11 < bar total or (V-1.75)/1 1>bar total set continue decode faJse and quit(parity 
error). Otherwise do the procedure starting at step 8.3.16 to check the element widths In the character. If 
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they don't pass the tests, set continue decode false and quit (character elements out of limits). 



v table (0 to 107) 


(0) 


6.6,6.4.4.4,4,4,4,4, 


(10) 


4,4,0,6,6,6,6,6,6,6, 


5 (20) 


6,6.6.8,6,6,6,6,6.6, 


(30) 


6.6.6,4,4,4.4,4,4.4. 


(40) 


• 4,4,6.6.6.6,6,6.8.6, 


(50) 


6.6.6,8,6.6,6,6.6,6, 


(60) 


8.4,6,4,4.4.4,4,4.4, 


w (70) 


4,4,4,4,4,4,4,8,4,6, 


(80) 


6,6,6.6,6.6,6,6.6.8. 


(90) 


8,8,6,6,6.6,6,6,6,8. 


(100) 


8,8.8,4,4,6,6,6, 



8.3.8 Compute the ratio of the sum of the elements in the current character to last char width. If this 
ratio is greater than max char ratio or less than min char ratio set continue decode false and quit 

8.3.9 if the length of label string is the maximum allowable label length set continue decode false and 
quit (label string overflow). Otherwise if current character is start (103,104,105) or stop (106) then go to 

20 8.3.10. Otherwise set last char width to the width of the current character, add frame width to i, and append 
the current character to label string. Go to step 8.3.5. 

8.3.10 Set continue decode false. If min margin ratio > elements + 8) / 2*(the sum of elements +6) 
plus element(i+7)) then quit. Otherwise if forward is true then quit if either elements + 7)/eJement(l + 1) > 
stop element ratio, or elements + 1)/element(i + 7) > stop element ratio. Otherwise if forward is false reverse 

25 label string, and do the check sum calculation. If ok use the label string to construct the actual output string 
using the character table in the referenced spec. The values in label string give the entry for the "value" 
column in the table. Follow the rules to keep track of the current code when translating the data The four 
function characters should be communicated to the control software for the decoder. If no errors are found 
set found label true. Quit. 

30 8.3.11 This section is referenced from the main flow of the algorithm and you should return to the 

step which called this one when done here. The elements of the current character will be examined looking 
for a good character pattern. If forward is true go to step 8.3.12, otherwise go 8.3.13. 

8.3.12 Find the total character width by adding elements i + 1 through i+6. Calculate four two term 
sums T1 through T4 as follows. 

35 Tl = elements + 1) + element(i+2) 
T2 a element(i+2) + element(i+3) 
T3 ■ element(i+3) + element(i+4) 
T4 » elements + 4) + elements + 5) 

Set bar total = (elements + 1) + elements +3) + elements +5))/total character width. 
40 Go to 8.3.14. 

8.3.13 Find the total character width by adding elements t + 2 through i+7. 
Calculate four two term sums Tl through T4 as follows. 

Tl = elements +6) + elements +7) 
T2 =» elements +5) + element(i +6) 
« T3 = elements +4) + elements +5) 
T4 = elements +3) + element(l + 4) 

Set bar total = (e!ement(i + 3) + element(i + 5) + element(i+7))/total character width. 

8.3.14 Compute five threshold values thresh 1, through thresh 5 by multiplying the total character 
width times threshold ratio 1 through threshold ratio 5. 

so 8.3.15 Compute the four digits D1 through D4 of the pattern by doing the following for each sum Tl 

through T4. For j 1 through 4 do the following: 

D| = 2 if Tj < thresh 1 . 

Dj = 3 if threshl < » Tj < thresh 2. 

Dj = 4 if thresh2 < = Tj < thresh 3. 
55 Dj = 5 if thresh3 < =» Tj < thresh 4. 

Dj « 6 if thresh4 < = Tj < thresh 5. 
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Dj ='7 if threshS <= Tj. 

Then pattern Is equal to D4 + 16*D3 + 256*D2 + 4096*D1 (do this by shifting and adding as they are 
computed), the main algorithm. 

8.3.16 This section is referenced from the main flow of the algorithm and you should return to the 
5 step which called this one when done here. This section checks the sizes of elements within a character for 

correct width ratios. Find the widest and narrowest bar and space. 

8.3.17 If the ratio of widest bar to narrowest bar is greater than max element ratio then return; the test 

failed. 

a3.18 If the ratio of widest space to narrowest space is greater than max element ratio then return; 
io the test failed. 

a3.19 Ok, return. 
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Section 9: UPC/EAN 



9.1 General Code Description 

A UPC/EAN label consists of one or more segments each representing a fixed number (4, 6 or 7) of 
numeric digits. This information is encoded in segments with a length of 4 or 6 characters. Each segment in 
the label can be scanned and decoded independently, without regard to order of segment capture or 
direction of scan. 



9.1.1 Basic Structure 

The widths of the alternating bars a^d spaces of the UPC/EAN label are defined in terms of modules. A 
30 module Is a normalization factor used to compute element sizes when decoding the label. A module is 
generally the smallest of a group of elements making up specific sections of the label. All measurements 
and ratios used in the decoding algorithm are based on module widths. 



as 9.1.2 Character Structure 

Each character of a segment consists of a group of 4 elements, 2 bars and 2 spaces. Characters have a 
constant width of 7 modules with each element either 1 , 2, 3 or 4 modules wide. Differing patterns of these 
4 elements can be uniquely decoded to produce 20 characters, 0-9 both with even and odd parity. Parity is 
40 determined by the number of modules that make up the bars of the character pattern. The parity, and the 
direction in which the pattern was scanned (whether the character pattern starts with a space or bar), are 
used in conjunction with the segment to determine if the label had been scanned in a forward or backward 
direction. 



9.1.3 Segment Structure 



A segment comprises either 4 or 6 explicit characters. A seventh character is implicitly encoded into 
certain types of segments using the parity pattern. Segments are generally grouped into left and right 

so halves. A left half segment and a right half segment are usually joined together by a center band. A center 
band is a pattern of 5 elements (3 spaces, 2 bars) that are each one module in width. The joined segments 
are surrounded on both sides with a margin (relatively large white space) and a guard bar pattern (3 one 
module elements, 2 bars, separated by one space). When scanned from left to right (forward direction), 
characters in the left half segment start with a space. The segment ends at the center band, and the right 

56 segment characters (scanned from the center band out) start with a mark (bar). Thus, the type of element 
that the character patterns in the segment start with determine the relative direction that the label was 
scanned (margin to center band, or center band to margin). The parity pattern generated by the segment 
characters is used to identify a left or right half segment These two pieces of Information identify the type 
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of segment and order of the encoded data. Certain types of left half segments are not joined by 
corresponding right halves. These segments have a left margin and guard bar pattern and a center band 
pattern on the right. The center band contains an extra 1 module bar on the right to separate the last space 
from the margin. 

5 

9.1 .4 label Structure 

Specific label types are formed with 1 or more unique segments. UPC type A labels have a six 
w character left and right half for a total of 12 characters. UPC type E (zero suppressed) labels have 1 six m 
character left half with a modulo 10 check digit encoded as a seventh character in the parity pattern. EAN- 
13 labels have 2 six character halves, with a 13th digit encoded in the left half segment parity pattern. EAN- 
8 labels have one left and one right 4 character half, for 8 digits of encoded data. UPC type D labels (E>1 « 
thru D-5) have various combinations of both 4 and 6 character segments creating labels with 14 to 32 digits 
ts of data Segment halves or pairs are separated within the label by intra-block and inter-block gap elements. 
These are essentially margin elements with a minimum nominal width of 7 modules. 



9.1 .5 Supplemental Addon Encodation 

20 

UPC A and E, EAH13, and EAN8 labels can be suffixed past the right margin by supplementally 
encoded data (also called periodical data, because it is used primarily by the magazine and book industry) 
of length 2 or 5 characters. The data immediately follows the right margin (7 modules nominal) and is 
deliniated by a guard bar pattern of 3 elements (1 module bar, 1 module space, 2 module bar). Character 
25 patterns are separated by 2 elements (1 module space, 1 module bar), and a margin element immediately 
follows the last character. The supplemental encoding scheme was purposely designed so as to not 
interfere with the decoding of the standard UPC/EAN label, but also with the ability to utilize some of the 
already existing decoding schemes (such as character pattern recognition) in a UPC/EAN decoder. Because 
of its nature, the supplemental encodation is more susceptible to error than standard UPC/EAN label types. 
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Figure 9.1: 

Bar (Bi) Space (Si) and 2-term sum (Ts) information for each UPC/EAN character. When scan direction is 
such that character starts with a space, then character elements should be reversed. Note that segments 
containing both odd and even parity characters will contain reversed characters. 



9.2 Decoding Algorithm Overview 



55 
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9,2.1 Decode Status Variables 

Variables used in the decoding process are defined below. Values of the status variables can be 
maintained globally to allow re-entrant use of the decoder. 



TO 



T5 
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called. 

pointer to the current element being analyzed for 
auppleaental addon data. 
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current eleaent look, like good data. 
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boolean; tru. if the buffer baa -ore eleaent. to 
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boolean; true if the buffer ha. .ore ele.ent. to 
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good date. 

boolean, true when ette.ptlng *cod. of the buffer in 
forward direction <f^l»t it b«ckwrd«>. 



f»d decode addon 
found .egaent 
reverae 
found addon 
found label 
parity bits 
addon parity bits 

•tfl«nt type 
pageant store 
data buffer 



booleani true when a -egaent has been put into th. 
■egaent buffer* 

boolean, true If e -O-nt ea. decoded fro. center-bend 
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boolean, true *h.n •* eddon seg~*i ha. been put into 
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boolean, true when • Uhmi ha. been put into label 
string* 

apriV o£ miK bits repreaenting the psrity pattern of 
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^J£-*~* decoded. A 1 bit indicate .v.n 
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v.ri.M. indlctina th. typ. o< "fl^t i» th. ..Q-nt 
bu«.r <UPC-A right, EAH-W toft, .tc. ). 

•rr.y * butt.r. -torln B d.eod.d "0-nt. «cli 
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.rr«y of nu.br. r.pr...»ting width, ol th. M> 
S*. Th.y -«* .lt.rn.t. b.t...» br. «d 
.paces. 
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9,2.2 Decode Constants 

Constant values are identified in this section. The constants are referenced by name in the description 
of the algorithm 

5 



Const* njt 
fra»e vidth 



Vilue 
4 



threshold 1,2,1 3 25/70 
35/70 
45/70 

aabiguity seal* 2/3 

aax char ratio 1.25 

■In char ratio .60 
•argln scaler 1.75 



■ax Margin char 
ratio 



■in aargin ratio 1.375 



■ax aargin ratio 



■ax like element 
ratio 

■ax addon guard 
bar ratio, 
■in addon guard 
bar ratio 



1.5 



2.5 
1.5 



Description 

Nusber of ele»ents in a character 

Decision points used to base velghtlnga of the 
2-tera suae expressed as ratio of eus to 
character vidth. 

Utilized to pcale a character eleaent vidth for 
ambiguity resolution. 

Kax ratio of the suae of the elements in the 
current character to the previous character. 

1/aax char ratio ia the win char ratio 

Factor used to scale aargin guard bar *ua (2 
bar plus 2 times the space), to sake it coapar- 
able to a character vidth. 

Kax ratio of the subs of the elements in the 
first character of the segaent to the aargin 
(■argln is sultiplied by the -argin scaler 
constant). 1/aax ■argin char ratio is the ain 
■argin char ratio. 

Kiniau» ratio of a vhite space to the sua of the 
next 2 bars plus 2 tiaes the next space (next 
three eleaente, either forvard or backward) to 
qualify it as a aargin eleaent. 

Rax ratio of a vhite space to the sua of the 
next 2 bars plus 2 tiaes the next space (next 
3 elements, either forvird or backvard) to 
qualify it a legal gap betveen label segaent and 
add-on segaent. 

Kax ratio of tvo 1 aodule vide eleaents vhen 
both are bars or both are spaces. 

Kax and ain ratio of the second bar (third 
eleaent) to the first bar (first element) of an 
addon segment. 



es 9.2.3 Derivation of the constants 
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threshold 1,2, & 3 

Detail on the choice of these numbers is descibed in section 9.2.4.1. .Basically, it is the midpoint 
between nominal ratios of the 2-term sums of the character to sum of all elements in the character 
5 (character width). Since nominal ratios are 2/7, 3/7, 4/7, and 5/7, the thresholds are set as 2.5/7, 3.5/7, and 
4.5/7. 



ambiguity scale 

This is used as a constant to scale l 2 as described in section 9.2.4.1 when resolving EVEN 1.7 
ambiguity. Since the possible ratios of h to b are 1/3 and 1, scaling l 2 by 2/3 (.6667) results in ratios of 1/2 
and 3/2. Choosing ratio of 1 as decision point is near midpoint between these two extremes, and allows 
simple magnitude comparison of the elements (ie. which is greater). 



max char ratio 

This value is chosen based on the possible variation in spot velocity and label printing tolerances. 1.25 
20 is used until more information becomes available on the scanning device used. For example, rotating 
polygon scanners generaJly have less spot speed variation than resonant scanners. Resonant scanners 
would, therefore need a larger range of character ratios (larger max char ratio constant) than polygon 
scanners. 

25 

margin scaler 

This number is used to calculate a "character width" for the margin guard band. The measured width 
(bars + 2 " space) is nominally 4 modules. Multiplication by 7/4 (1.75) gives a pseudo width of 7 modules 
30 (which is a nominal character width). This number can then be compared directly with the subsequent 
character in the label. 



max margin char ratio 

35 

Since the margin "character width" is calculated rather than measured directly, its accuracy is 
lessened. This value (2.0) was chosen so as to be more lenient than max char ratio, but still allow for 
relative comparisons of margin guard bars to characters in a segment. 

4Q 

min margin ratio 

A nominal margin white space is 7 modules wide. The largest element within a label is 4 modules. 
Choosing the mid-point as the decision point gives a value of 5.5 modules. The margin ratio Is calculated 
45 using the bars of the guard band plus 2 times the space. For nominal elements, this would be 4 modules. 
The threshold point is therefore set at 5.5/4 = 1.375. 



max margin ratio 

50 

This value is used to limit the size of the gap between the supplemental addon segment and the 
standard UPC/EAN segment that it attaches to. Addon data is fairly easily made from scan data that is not 
part of the label. The upper limit of the gap size helps prevent use of data that is not part of the label from 
making an invalid addon. The sum of the widths of the guard band of an addon segment is 5 modules 
55 (the space is added twice). Using a max margin ratio of 3.0 allows for gaps of up to 15 modules. Since 
nominal gap size is 7 modules, this gives ample room for deviation in a valid label. 
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max like element ratio 

This value is used verify that two 1 module like elements are the same. Next biggest element is 2 
modules, therefore the midpoint (1.5) is chosen to be the best decision point for this test 



max addon guard bar ratio, min addon guard bar ratio 

The basis for these numbers is similar to above, with the exception that the guard bar ratio is nominally 
ro 2 (the second bar is 2 modules wide nominally). Values of 1.5 and 2.5 are midpoints in the decision space 
between ratio values of 1 , 2 and 3. 



75 
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9.2.4 General Decoding Method 



9.2.4.1 Character Decoding 

20 The UPC/EAN decoder can use "like-edge" measurements for most of the character recognition 
functions. That Is to say, measurements are made from the leading (trailing) edge of a bar to the leading 
(trailing) edge of the next bar. The decoder sums the widths of the individual elements in a bar-space pair 
to determine the appropriate like-edge measurement, caJled a 2-term sum. For a UPC character, two 2-term 
sums are calculated, Ti and T2. These are defined as the sums of the first bar, first space and first space, 

25 second bar respectively. The definitions and subsequent ones assume that the first element of the character 
being decoded is a bar. if the first element is a space, the order of the 4 elements of the character should 
be reversed. The sums Ti and T 2 generate values ranging from 2 to 5 modules. This provides the 
capability to distinguish between 16 possible combinations of the sums. (See figure 9.1) 12 of the 16 
combinations result in unique UPC/EAN character determination. The remaining 4 indicate ambiguous 

30 character pairs (even and odd parity 1,7 and 2,8). The two term sums do not give sufficient information to 
uniquely identify these characters, so more measurements are needed. The nature of these measurements 
are discussed later in this section. Note that the last space of the character is not used for generation, of 2- 
term sums. This is because the error tolerance on the ending space of the character is significantly larger 
than the other elements of the character. To determine the size in modules of each 2-term sum, it is 

35 normalized by first dividing it by the total character width (T). Since the total width is defined to be 7 
modules, module size of each of the sums is in terms of 1/7th's of the total width. Given these calculations, 
the following decision rules can be established with respect to the interpretation of T f : 



li < *i — > T ± ±b 2 ■odulee 

T " 7 



X * * T A < -? ~ > T\ in 3 •oduleo 



7 



i 



X T X 

A < A < -3 — > T ± is 4 .odulM 



*3 < Ti — > T ± i* 5 -odulee 



where Xj is the appropriate decision threshold in terms of modules. 
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Choosing values for X, that are at the midpoint in the decision space yields the following: 



• 2.5 — > 



X l 

-i ■ 0.3571 • Threshold 1 



7 
7 



2 

X • 3.5 — > - f ■ 0.5 ■ Thr»«hold 2 



TO 



T5 



X • 4.5 --> ■ 0.6429 ■ ThrMhold 3 



"3 



7 



As mentioned earlier, more information is required to determine the correct character of an ambiguous 
pair for 4 combinations of Tt and T2. T1 and T2 provide enough information to determine parity, and the 
specific ambiguous character pair (17 or 2,8). Resolving the ambiguity can be accomplished by utilizing the 
first space and second bar of the character (the second and third elements of the character, respectively) or 
20 the first bar and first space (first and second elements). Calculating the ratio of the third element to the 
second e!ement(l 3 /l2) and the first element to the second element(M 2 ) yields the following: 



25 



30 Chir»cter l 3 /J 2 I l /I 2 

EVEN 1 11 

EVEN 7 1/3 1/3 

35 ODD 1 '1 1/2 

ODD 7 3 2 

EVEN 2 2 2 

EVEN 6 1/2 1/2 

40 

ODD 2 1/2 3 

ODD 8 2 1 



45 



Note that, with the exception of EVEN 1 7, resolution of every ambiguous pair required only a 
so determination of which element is larger. Even 1 7 requires a scale factor before comparison. A midpoint 
selection yields a factor of 2/3. Thus the decision rules for resolving character ambiguity are: 
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EVER 1 7 



-> EVEH 7 el«e EVER 1 



ODD 17; I, 



> X 



-> ODD 1 • el«e ODD 7 



5 



EVEH 2 8 t I 3 
ODD 2 6: I, 




-> EVEH 2 a 



-> ODD fi 0DD 2 



70 Where X* = 2/3 = 0.6667 



9.2.4.2 Segment Decoding 

TS Proper framing requires that a segment be decoded from the margin to the center band or, If the 
decoder has just previously recognized a segment ending on the center band, from the center band to the 
margin. In cases Where the scanner has passed through part of a segment the center band, and the entire 
adjoining segment the decoding will be performed In a backward direction, from the margin just 
encountered back to the center band. As the character recognition method described above will always 

20 return a "valid 0 character, some other means of rejecting data that Is not truly valid must be utilized. The 
primary method utilized is measurement of relative widths between characters of the segment. Secondary 
checks of valid parity patterns are done if the character width check passes. 



25 9.2.4.3 Label Decoding 

As previously discussed, the segments of a UPC/EAN label can be scanned in random order. The only 
exception Is supplemental addon data, which must be decoded in conjunction with a valid UPC-A or EAN-8 
right half or UPC-E segment Labels are reconstructed from the decoded segments by utilizing the parity 

30 pattern of the encoded characters in each segment Figures 9.2 and 9.3 identify the valid parity patterns for 
label segments, and the aliowed combinations of segments making up the various labels. Many labels 
contain some of the same segments. The decoder should attempt to assemble labels in order of 
diminishing complexity, to minimize segment substitution errors. For example, the decoder should start by 
attempting a UPC D-5 label first since it contains the most segments. If unsuccessful, a D-4 should be tried, 

35 and so on. 
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NOTATION 



USED IN 



PARITY PATTERN* 



N(2> 
NO) 
N(4) 
N(5) 
N(6) 

■ M(7) 
N(B) 
N(9) 
E(0) 
E(l) 
E(2) 
E(3) 
E(4) 
E(5) 
E(6) 

,E(7) 

E(9) 
ACL) 
A(R) 
D 

n(l) 
n(2) 
n(3) 
n(4) 
n(5) 
n(6) 

JKL) 
8(R) 



EAN-13 



UPC 



-£ 



if 



UPC-A 

UPC-A, EAN-13, VERS- J) 
VERS-D 

LI 



EAN-8, VERS-D 
n m 



OOEOEE 
. OOEEOE 
OOEEEO 
OEOOEE 
OEEOOE 

' OEEEOO 
OEOEOB 
OEOEEO 
OEEOEO 
EEEOOO 
EEOEOO 
EEOOEO 
EEOOOE 
EOEEOO 

' EOOEEO 
EOOOEE 
EOEOEO 
EOEOOE 
EOOEOE 
OOOOOO 
EEEEEE 
OOOEEE 

- EEOO 
OEEO 
EOOE 
EOEO 
OEOE 
OOEE 
0000 
EEEE 
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Figure 9.2 Segment Parity P«tt*rna 
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10. ZE 
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Figute 3-3 Volii LoV>el structure 
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9.3 UPC/EAN Decode Algorithm 

The specific decoding algorithm is given below. Before entering the UPC algorithm the first time the 
segment store array should be cleared and last decode point set to first buffer element. The pointer i should 
5 be set to a large white space. When decoding in the forward direction, failure of any test results in an exit 
from the algorithm with continue decode variable set to false. When decoding in the reverse direction, 
failure of any test should set continue decode false, set the variable last decode point and the current 
element pointer (i) to the current margin (to prevent another search backward), and re-start the algorithm. 

9.3.1 If scanning continuously and no segments have been found for a while, or if the trigger was just 
to pulled, clear the segment buffer. This should be managed in a way that prevents combining segments from 

different items and depends on characteristics of the scan head used. 

9.3.2 Look for a margin backward: 

If the difference between i and the last decode point is equal to or greater than a minimum segment size (4 
char segment = 28 elements) the do step 9.3.10 to check for a margin in the reverse direction. If a margin 
ts has been found then: 

- set last char width to margin scaler * (elementfl + 1) + 2*element(i +2) ♦ element(i-3). 

* set continue decode to true. 

- set current margin to i. 

- set i to i + frame width (to point to first element of next character to decode). 
20 - set fwd decode false. 

- reset the parity bits and segment string to empty. 

9.3.3. If continue decode Is false (didn't find a margin backward), then look for a margin forward: rf 
there are less than frame width elements available to be examined forward, wait (not enough elements to 
find margin pattern). If enough, then do step 9.3.10 to check for margin in forward direction. If a margin is 
% 25 found then: 

- set last char width to margin scaler • (e!ement(i + 1 ) + 2*element(i + 2) + elementfl + 3). 

- set continue decode to true. 

- set current margin to I. 

• set i to i + frame width (to point to first element of next character to decode), 
so • set fwd decode true. 

- reset the parity bits and segment string to empty. 

9.3.4 If continue decode is false then quit (didn't find margin either way). 

9.3.5 If continue decode is true and fwd decode is false, do step 9.3.11 to look for a valid segment in 
the backward direction. If continue decode is true and fwd decode is true, then do step 9.3.16 to look for 

as valid segment in the forward direction. 

9.3.6 If segment found, check for addon by doing step 9.3.26. 

9.3.7 This step deleted. 

9.3.8 Add the previously captured segment string to the segment store array. Set found segment to 
false, and set segment string to empty. 

40 9.3.9.1 If continue decode is true and fwd decode is true do step 9.3.16 (Try to read the next 

segment of a label.) 

9.3.9.2 Try to make a label by doing step 9.3.38. If make label was successful, then set found label 
true, set label type. 

9.3.9.3 Return 

45 9.3.1 0 Margin check algorithm: 

If fwd decode true, check that element(i)/{element(i + 1) + 2 :* elements +2) ♦ elementfi+3)) > min margin 
ratio. If fwd decode false, check that element(l)/(element(i-1) + 2 # element(i-2) + element(l-3)) > min margin 
ratio. If not ok, then test failed, return. If ok, then if fwd decode true calculate ratio » element(l + iy 
element(i + 3). If fwd decode false, ratio ■ element(i-1)/elementft-3). if ratio > max like element ratio or 

so (1/ratio) > max like element ratio then test failed, return. Otherwise, test passed, return. 

9.3.1 1 Get backward segment algorithm: 

Check if data is available in the backward direction (i last decode point +1). If not available, set 
continue decode false and go to step 9.3.14. 

9.3.12 Use steps 9.3.21 thru 9.3.24 to get a possible segment character. If successful: 
55 - add character to the segment string. 

- shift the parity bits map left 1 bit. 

- add 1 to the map if the character is even parity. 
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- set last char width to the current char width 

- subtract frame width from i 
Otherwise, go to step 9.3.14. 

9.3.13 If length of segment string greater than 6 then set continue decode false and go to step 9.3.15 
5 (too many characters in the segment string). Otherwise, go back to step 9.3.1 1 . 

9.3.14 If length of segment string is not 4 or 6 then goto step 9.3.15. Otherwise, if element(i) is not a 
bar then go to step 9.3.15 (framing problem). Otherwise, if char width was not too small then go to step 
9.3,15 (isnt a center-band). Otherwise, if the decoded character is not an ambiguous character (1,2,7, or 8) 
then go to step 9.3.15 (not a center-band). Otherwise, set last char width to current width, decrement i by 1 

10 and use steps 9.3.21 thru 9.3.24 to get another character. If not successful or the decoded character is not 
an ambiguous character then go to step 9.3.15. Otherwise, use step 9.3.25 to decode segment parity map 
with reverse set false. If segment type Is ok, then set segment found true and check if segment type is 
UPC-A right half or EAN-8 right half or UPC D nl, reverse segment string digits if segment is one of those 
types, (scanned it backward) 

is 9.3.15 Set last decode point to the current margin. Set continue decode to false and set I back to 

current margin. Return to main section of the algorithm. 

9.3.16 Get forward segment algorithm: 
Check If data is available in the forward direction (i < = last buffer element + frame width). If not available, 
wait 

20 9.3.17 Use steps 9.3.21 thru 9.3.24 to get a possible segment character. If successful: 

- add character to the segment string. 

- shift the parity bits map left 1 bit 

- add 1 to the map If the character is even parity. 
• set last char width to the current char width 

25 - add frame width to i 

Otherwise, go to step 9.3.19. 

9.3.18 If length of segment string is less than 6 then go to step 9.3.16. Otherwise set continue 
decode to false and return. 

9.3.19 Set continue decode to false. If length of segment string Is not 4 or 6 then return. Otherwise, If 
30 elementO) Is a bar then go to step 9.3.20. Otherwise, if char width was not too small then return (isn't a 

center-band). Otherwise, H the decoded character is not an ambiguous character (1,2,7, or 8) then return 
(not a center-band). Otherwise, set last char width to current width, increment i by 1 and use steps 9.3.21 
thru 9.3.24 to get another character. If not successful or the decoded character is not an ambiguous 
character then return. Otherwise, use step 9.3.25 to decode segment parity map (with reverse flag false). If 
35 segment type not ok return, otherwise set found segment true and check if segment type is UPC-A right 
half or EAN-8 right half or UPC D nl, reverse segment string digits If segment is one of those types, 
(scanned it backward). Then set continue decode true (to try decoding from the center band out), set i to i 
+ frame width, and return. 

9.3.20 Segment ended on margin: 

40 If character is not too big then return (not a margin char). Increment i by 3, set fwd decode false, and do 
step 9.3.10 to check margin. Set fwd decode true. If margin not OK return, otherwise use step 9.3.26 to 
decode segment parity map (with reverse flag true). If segment type not ok return, otherwise set found 
segment true and check if segment is not type UPC-A right half or EAN-8 right half or UPC D n1, if it isn't 
then reverse segment string (scanned a left half backward). Do step 9.3.8. Set last decode point to I, set 

45 current margin to I. Look for an addon by doing step 9.3.26. Go to 9.3.3 to try finding additional label 
segments. 

9.3.21 Get character: 

Sum elements from i to i +3 to get char width. If element(i) is a bar, then set 2-term sum 1 to element(i)- 
+ elements + 1). 2-term sum 2 to element(i + 1)+element(i + 2). Otherwise, set 2-term sum 1 to element- 

50 (l+2)+element(i + 3), 2-term sum 2 to element(i + 1)+eiement (i + 2). Set ratiol to 2-term sum 1 / char 
width, ratio2 to 2-term sum 2 / char width. If ratiol < threshold 1 then set weight to 0, otherwise if ratiol < 
threshold 2 then set weight to 4, otherwise if ratiol < threshold 3 then set weight to 8. otherwise set weight 
to 12. If ratio2 < threshold 1 then do nothing, otherwise if ratio2 < threshold 2 then set weight to weight + 1, 
otherwise if ratio2 < threshold 3 then set weight to weight +2, otherwise set weight to weight +3. 

66 9.3.22 Use the value weight to index into the following table of characters: 

0: character = 6, even = true; 
1: character = 0, even = false; 
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2: character = 4, oven ■ true: 

3: character =3. even = false; 

4: character = 9, even = false; 

5: character = 2, even = true; 
5 6: character = 1, even = false; 

7; character = 5, even = true; 

8: character = 9 f even = true; 

9: character * 2. even = false; 

10: character = 1, even = true; 
tq 11: character = 5, even = false; 

12: character =6, even = false; 

13: character » 0 f even = true; 

14: character = 4. even = false; 

15: character = 3. even = true; 

rs 

For example, if weight* 4, then the decoded character = 9 and even parity is set false. 

9.3.23 Check ambiguities: 

If character = 2 and element(i) is a space and even is true, and elements +2) > elements + 1) then set 
character to 8. 

20 If character = 2 and element(i) is a bar and even is true, and elements +2) < elements + 1) then set 
character to 8. 

If character = 2 and element(i) is a space and even is false, and etement(i*2) < elements + 1) then set 
character to 8. 

If character = 2 and element(i) is a bar and even is false, and e!ement(i+2) > elements + 1) then set 
25 character to 8. 

If character = 1 and elementfl) is a space and even is false, and elements +3) > elementfi + 2) then set 
character to 7. 

If character = 1 and element© is a bar and even is false, and element(i) > (I ♦ 1 ) then set character to 7. 
ff character =» 1 and elementO) is a space and even is true, and element(i ♦ 2)'ambiguity scale > element- 
al (i + 3) then set character to 7. 

If character = 1 and element(i) is a bar and even is true, and elements + 1)'ambigurty scale > element(i) 
then set character to 7. 

9.3.24 Check widths: 

If char width / test char width > max char ratio then return with char too big indication. If char width / last 
as char width < (1/rnin char ratio) then return with char too small indication. Otherwise, return with successful 
indication. 

9.3.25 Segment parity decode: 

If reverse is true, then reverse order of parity bits, if the length of the segment string is 6, then set segment 
type and encoded digit from the following look up table: 
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For example, a parity bits map of 2A hex would set segment type to UPC E and encoded digit to 7. If 
segment type = UPC E then add encoded digit to end of segment string, if segment type ■ EAN 13 L 
then add encoded digit to start of segment string. 

'if length of segment string = 4 then set segment type and encoded digit from the following table: 



30 



35 



40 



SO 



600 (0000), 

483 (OOEE), 

«8S (OEOE), 

606 <0EE0>, 

609 (EOOE), 

60 A (EOEO), 

60C <EE00>, 

60F (EEEE), 



segment 
segment 
segment 
segaent 
eegient 
segment 
segment 
segnent 



type 
type 

type ■ UPC 
type « UPC 
type « UPC 
type « UPC 
type « UPC 



EAK8 L, 
UPC D n6, 
D 
D 
D 
D 
D 



n2, 
n3, 
n4, 
nl 9 



type - EAKfl R, 



encoded 
encoded 
encoded 
encoded 
encoded 
encoded 
encoded 
encoded 



digit 
digit 
digit 
digit 
digit 
digit 
digit 
digit 



0 
6 
5 
2 
3 
4 
1 
0 



If the parity bits map is not contained in the table, set error indication and return. 

9.3*26 Check for supplemental addon segment: 
Set continue decode addon to false. If found addon has not been set true, then check current segment 
found. If current segment type Is UPC E and both forward decode and reverse are false (segment was 
decoded backwards from margin to center band), then set is to the current margin - 34 (width of an E- 
segment), fwd decode addon to false, and continue decode addon to true. 

If current segment type is UPC E and fwd decode is true and reverse Is false (segment was decoded 
forward from margin to center-band), then set is to the current margin + 34 (width of an E-segment), fwd 
decode addon to true, and continue decode addon to true. 

If current segment is UPC A Right or EAN 8 right, and both fwd decode and reverse are true (forward 
direction decode from center-band to margin), then set is to the i. set fwd decode addon true, and set 
continue decode addon true. 

If current segment 'Is UPC A Right or EAN 8 Right, and fwd decode is true but reverse is false (forward 
direction decode from margin to center-band), then set is to current margin, fwd decode addon to false, and 
continue decode addon true. 

if current segment is UPC A Right or EAN 8 Right, and both fwd decode and reverse are false (backward 
decode from margin to center-band), then set is to current margin , fwd decode addon to true and continue 
decode addon to true. 
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9.3.27 If continue decode addon is true (found a segment with a posisible addon) then clear addon 
parity bits, addon string. If continue decode addon is true and fwd decode addon is true then set addon 
data available to true. If less than a frame width worth of elements are in the data buffer, wait (ai greater 
than last buffer location - frame width). If continue decode addon Is true and fwd decode addon Is false then 

5 set addon data available to true if ai is greater than or equal to 13 + first buffer eiement(at least enough to 
make 2 char addon), otherwise set it false. If addon data available is set false, then set continue decode 
addon to false and return (not enough data backward to make addon segment). Otherwise, If fwd decode 
addon is false go to 9.3.31. 

9.3.28 Decode addon in forward direction: 

w If addon string empty, then wait until at (east 2*frame width counts are available in the buffer (ai<»last , 
element - 2 + frame width) else (if addon string not empty) then wait until at least frame width counts are 
available In the buffer (ai< = last element - (frame width + 1). 

9.3.29 Do all of this section if addon string empty. 

Check that element(ai)/(element(ai + i) + element(ai+2)+element(ai+3)) is greater than min margin ratio 
75 and less than max margin ratio. If ok, then check that element(ai+3)/element(al + 2) is greater than min 
addon guard bar ratio and less than max addon guard bar ratio. If ok, then check that elemental + 2)- 
/element(ai + 1) is (ess than max like element ratio and greater than (1/max like element ratio). If ok, then set 
addon last char width to (element(ai + l) + 2*element(ai+2) + element(ai + 3)) • 0/5, set ai to ai + frame width. 
If any test not ok, set continue decode addon false. 
20 9.3.30 If addon data available is true and continue decode addon is true, then do steps 9.3.21 to 
9.3.23 to get character (don't check widths), else return. If addon string is empty then add etement(ai-3)- 
+element(ai-2) to char width, else add element(ai-2)+element(8i-l) to char width. If char width / addon last 
char width > max char ratio or < (1/max char ratio) then set continue decode addon to false, else append 
decoded character to addon string, set al to airframe width-*- 2, set last char width to char width, append 
25 parity bit (even-1) to addon parity bits, set continue decode addon false if addon string has 5 elements 
(maximum). Go to step 9.3.35 

9.3.31 Decode addon in backward direction: 

If addon string empty, then set addon data available to true if enough data to make guard bar plus first char 
(ai> =first buffer element + 2 * frame width) else (if addon string not empty) then set addon data available 
30 to true if at least frame width counts in buffer (aJ> »flrst buffer element + frame width). 

9.3.32 Do all of this section if addon data available is true and addon string empty. 

Check that element(ai)/(element(ai-l) + eIement{ai-2)+etement(ai-3)) is greater than min margin ratio and 
less than max margin ratio. If ok, then check that element(ai-3)/element(ai-2) is greater than min addon 

guard bar ratio and less than max addon guard bar ratio. If ok, then check that e!ement(ai-2)/eiement(al-1) is j 
35 less than max like element ratio and greater than (1/max like element ratio), if ok, then set addon last char j 
width to (element(ai-1 ) + 2"element(ai-2) + element(ai-3)) " 9/5, set ai to ai minus (2 + frame width - 1 ). if any 
test not ok, set continue decode addon false. 

9.3.33 If addon data available is true and continue decode addon is true, then dp steps 9.3.21 to 
9.3.23 to get character (don't check widths), else go to step 9.3.35. If addon string is empty then add 

40 element(ai+5) + element(ai+6) to char width, else add elemental +5)+ elemental +4) to char width. If char 
width / addon last char width > max char ratio or < (1/max char ratio) then set continue decode addon to 
false, else append decoded character to addon string, set ai to ai-frame wtdth-2, set last char width to char 
width, append parity bit (even = 1) to addon parity bits, set continue decode addon false if addon string has 
5 elements (maximum). 

45 9.3.34 If addon data available is false then set continue decode addon to false and return to the main 

algorithm (not enough backward data available). v 

9.3.35 If continue decode addon is true then if fwd decode addon is true then go to step 9.3.28. If 
continue decode addon is true and fwd decode addon is false, then go to step 9.3.31. Otherwise, if length of 

addon string not equal to 2 or 5 then return (not a valid addon). i 
so 9.3.36 If length of addon string is 2, then calculate parity as the mod 4 of the value of the 2-digrt 

addon (eg. if addon string is '13', then parity is 13 mod 4 • 1). If calculated parity doesn't match parity bits 

then quit Otherwise set found addon to true, and addon type to 2-char, and return. 

9.3.37 If length of addon string is 5, then calculate parity as (3 * sum of digits 1. 3 and 5 of addon 

string + 9 * sum of digits 2 and 4) mod 10. Index the parity digit into the following table (starting reference 
S5 of 0): 

(S18. $14, £12. S11. SOC. $06, $03, $0A, $09, $05) 

If the indexed parity pattern equals addon parity bits then set found addon to true, and addon type to 5- 
char, then return. 
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9.3.38 Attempt to assemble label: 

(There are many possible methods of deciding validity of a label. The one presented here checks for 
capture of segments needed to make labels as follows: If a UPC-D segment was seen, try UPC-D5 through 
D1. If no D segment was seen, try UPC-A, then EAN-13, then UPOE. then EAN-8. Check digits are tested 
5 In each block as it is evaluated. The segment capture and label assembly methods used in this algorithm 
are straightforward. 

More sophisticated methods may be used. One method would be to keep a count of how many times a 
particular segment has been seen, and use a rule controlling when It would be replaced by newly scanned 
data. For example, if a particular tIPC-A-R segment was seen one time, then a different one was seen, 

w replace the old one in the segment array with the new one. If the old one had been seen two or more times, 
keep the old one, and discard the new one. This makes it easy to require seeing certain error prone 
segments (UPC-E, EAN-8) twice by just requiring a total of two or more. Another method is to keep two 
complete segment array buffers, each with a set of totals for how many times each segment has been 
seen. Initially, the buffers and totals are all cleared. Up to two different versions of each segment type are 

is collected, with totals for how many times they have been seen. If a third version of a particular segment 
type is seen, it is discarded. Then during the process of determining if a good label has been seen, the two 
counts for each segment type are examined. If one version of the data has been seen much more than 
another, it is accepted. If two versions of the data have been seen frequently, it is not accepted. For 
example, if a UPOD segment 012345 was seen three times, and a UPC-D segment 018345 was seen two 

20 times, don't accept either. If the first one was seen four times, and the second one was seen one time, 
accept the first as being ok.) 

9.3.38.1 If segment store array contains UPC-D go to 9.3.38.2, otherwise go to 9.3.38.10. 

9.3.38.2 If segment store array contains UPC-A-R then go to 9.3.38.4, otherwise go to 9.3.38.3. 

9.3.38.3 If segment store array contains UPOD-nS, EAN-8-L, and the Block 1 checksum calculation is 
25 ok (step 9.3.39) set label type to UPC-D1 , set found label true. Return in ail cases. 

9.3.38.4 If the Block 2 checksum calculation is not ok (step 9.3.39) return. Otherwise go to 9.3.38.5. 

9.3.38.5 If segment store array contains UPC-D«n4 and EAN-8-R, do Block 5 checksum calculation 
(step 9.3.39). If ok go to 9.3.38.6, otherwise go to 9.3.38.8. 

9.3.38.6 If segment store array contains UPC-D-n3 and UPC-D-n8 and UPC-D-n1 and the Block 7 
30 checksum calculation is ok (step 9.3.39) set label type to UPC-D5, set found label true, return. Otherwise go 

to 9.3.38.7. 

9.3.38.7 If segment store array contains UPC-D-n5 and UPC-D-n1 and the Block 4 checksum 
calculation is ok (step 9.3.39), set label type to UPC-D4, set found label true, return. Otherwise go to 
9.3.38.8. 

36 9.3.38.8 If segment store array contains UPC-D-n3 and UPC-D-n5 and Ean-8-R and the Block 6 

checksum calculation is ok (step 9.3.39), set label type to UPC-D3, set found label true, return. Otherwise 
go to 9.3.38.9. 

9.3.38.9 If segment store array contains UPC-D-n2 and Ean-8-R and the Block 3 checksum 
calculation is ok (step 9.3.39), set label type to UPC-D2, set found label true. Return in all cases. 
40 9.3.3&10 If segment store array contains UPC-A-R, go to 9.3.38.1 1 . Otherwise go to 9.3.3&13. 

9.3.38.11 if segment store array contains UPC-A-L, and the UPC-A checksum calculation is ok (step 
9.3.39), set found label true, set label type to UPC-A, return. Otherwise go to 9.3.38.12. 

9.3.38.12 If segment store array contains UPC-13-L and the EAN-13 checksum calculation is ok (step 
9.3.39), set label type to EAN-13, set found label true. Return in all cases. 

45 9.3.38.13 If segment store array contains UPC-A-L return. Otherwise, go to 9.3.38.14. 

9.3.38.14 If segment store array contains UPOE, and the UPC-6 checksum calculation Is ok (step 
9.3.39), set label type to UPOE, set found label true, return. If no UPC-E was in the buffer, go to 9.3.38.15, 
otherwise return. 

9.3.38.15 If segment store array contains UPC-8-L and EAN-8-R, and the EAN-8 checksum caicula- 
50 tion is ok (step 9.3.39), set label type to EAN-8, set found label true. Return in all cases. 

9.3.39 Checksum calculation: 

Calculate the check sum of a block using the UPC specification rules. See figure 9.3 for a definition of the 
various blocks. If any checksums are not zero, then the test failed. 

55 The checksum for each block is calculated by starting from the rightmost character of a block, adding the 
numeric value of the characters multiplied by a weighting factor. The weighting factor is alternately 3 and 1. 
If the mod 10 sum of the weighted characters is 0, the checksum is correct. 

Example: For a Block 6 (found in a UPC D-3) with characters 123456789104, the sum is 3x4 + 1x0 + 3x1 
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+ 1x9 + 3x8 + 1x7 •+ 3x6 + 1x5 + 3x4 + 1x3+ 3x2 + 1x1 = 100. 100 mod 10 » 0, so it is ok. 

A program listing for the above algorithms in assembly language is given below for implementation on a 
Thompson-Mostek MK68HC200 microprocessor. 
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Of CODE 68 

U200 atnlMt operating «y*t«t. end application code lor 
cod* J of 9 and the various upc/aen codet written In • 
reduced Instruction act. 
Cugme, Oregon. 

Copyright 1987 Spectre Physics, Inc. 



HISTORT 

11->Urch-87 by Kike Iroota 

ftev 1.00 of code written for "bete* board. Ho kno* bugs. 



t EG! STEM U5EAGE 

AO • Junk 
A1 • Junk 

A2- Junk ^ 
A3 ■ Junk / previous (Lett) cha recter_f raws width 
M » permanent label buffer character pointer 
AS • penes nent IPTI re9 titer 

DO • Junk / current ehsrscter f rente width 

01 • junk 

02 • junk 

03 « Junk 

04 • Junk 

05 ■ Junk 

06 • Junk 

07 • 0L7 • loop counter / OK7 - character register 



USES Cdt REGISTER IIT$ 



F E D C I A 9 B 



foreword decode flag 
reverse f leg 

date buffer overflow flag 
glitch detect Info, 
force use of wand 
enable PZ addon's 
enable PS addon's 



DECOOER MASK REGISTER ifIS 



7 6 5 * 3 2 1 0 



| UPC decoder 
~ EAR decoder 
UPCO decoder 
Code 3 of 9 decoder 
* Interleaved 2 of S decoder 
' Code A- It r decoder 
' Code 93 decoder 
Code 128 decoder 



CQHHAM0/ IN FORMATION BTTE ttatttRT 

53A UPC A t l segment 
*3f UPC A f R • 
S3E UPC E • 
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TO 



75 



20 



17J 


P2 JL3D31 


* 


• >C 


p5 amon 


m 


» 10 




m 


aiv 


IA«6,L 


m 


t tit 




m 


M7 


UPC 0 


• 


MS 


UPC D6 


• 


*05 


UPC 05 


m 


soa 


UPC 04 


m 


W9 


UPC D3 


m 


S06 


UPC 02 


m . 


SOC 


UPC Ot 


m 




C39 libel 


s*c 


CSAR 


• 


f*5 


125 


m 


S49 


C9J 


m 


US 


C12S 


■ 


SSI 


61 Itch detected 


S52 


no »ueh c 


wmeod 


SSC 


Start up okay 



SFFFF - SFC28 ; rwtirvd • Internal l/o 



POUT LAYOUT 



30 



;• 








SAUOPTs 


eou 


SFC2& 


; P19 


SIGNS: 


EQU 


SFC24 


; MS 


dori: 


ECU 


SFC22 


; rw 


DMO: 


EOU 


SFC20 


; P16 








?M5 








! M * 


TAHl: 


ECU 


SFtfA 




TALL: 


EQU 


SFC1B 


;M2 


TIL: 


EQU 


SFC16 


i mi 








;P10 








; « 


IKASt: 


EQU 


%f CIO 


; 5 


lUTCK: 


EQU 


SFCOE 


; «r 
















• « 








; « 


Rtfbuf: 


EQU 


SFC06 


;PK3 


Ttftouf: 


EQU 


IF COS 


; fU 








?« 








? M 








• 











fleer C latch 

•to ecde and sync control 

port 1 data effraction control 

port 0 data direction control 

port 0 hendahake aodt, feet/standard, 

but lock, bud ugnnt bfta 

fleer control ond Interrupt edge 

aalact 

tlaor A hloh latch 
tfaor A Ion latch 
• tfaor I latch 

sfo trenearit control ond status 
sfe receive control and atatua 
Interrupt pooka 
Interrupt latches 



reserved 

•x terra I floor ond port A l/o 
•erlal rtcalvo buffar 
aarlal tranaalt buffer 
reserved 

port 1 serial, l/o, Interrupt and 
bus control bita 

port 0 aultfptcxcd address/data I Into 



INTERNAL 256 WES RA* LAYOUT 



STACKTOP: EOU 



SFSFE 



; top of ran, top of ayttea stock 



etc 



SFSOO 



LOCAL HEBORT DEFINITIONS 



50 



55 



LASEL BUT: 

PARITY: 

DECODER! : 

I25LL: 

ADOLL: 

COUNTER: 



0S.t 
DS.S 
DS.t 
DS.S 
DS.S 
DS.t 



TAtLCNT : 
Tl: 
T2: 
T3: 

Mi 

LAST WIDTH: 
CURRENT MARGIN: DS.U 
OOP: ~ DS.V 
IA: DS.U 
LAST I: DS.U 
iPTRi DS.U 



OS.W 
DS.V 
DS.U 
DS.U 
DS.U 
DS.U 



upc parity bits 

decoder blta register 1 

125 tobal length 

addon label length f2 or 5) 

tfaor A latch overflow counter 



bar/apoce breakpoint 
bor/apace breakpoint 



; last free* width total 

; current forking earfin 

; ta*tjfecode_pelnt In buffer 

; tenporery IPTR etoreage 

; currently found Margin by SFS 

; working data pointer 
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>• 
* 

.« 


EXURKAl AEWRT LA TOUT 






DPU: 


lau 


uooo 


♦ 


current d*ta points - BEAD OWU Ml 










•Uotuta KUr«tt UOOO 


♦PTI: 


FQO 


uooo 


J 


rrd of d*T» buffer flog 








* 
• 


absolute aatfreM S6000 


COAT A: 


EOU 


uooo 


* 


bete eddrtse of video dete buffer 


CDCKD: 


ECU 


uooo 


« 


end«1 of video dite buffer 


VIDTH: 


EOU 


GDEHD-GDAIA 


» 


width of deta array 



COW ST ANTS 



IEVIVL: EOU 1 ; eoftware revision level 

TIHC: EOU 10000 ; .001 eec elk for date tromfer 

t IMU : EOU am-i ; end earker for data Insertion at itart 

PRASEt EOU SFCCO ; port Use addreas 



;• PORT 4 Bit* 

RESETFE: EOU 

tDI: EOU 

aot: EOU 

oviav: eou 

DAXX: EOU 

MVls EOU 



IS 
13 
12 
11 
10 
9 



; letet front end and OPT* output 

; Vend data Input 

; CUTCH Input 

; data buffer overflow Input 

; local bua data acknowledged Input 

; local bua data available output 



;• USER CCD STATUS BITS 



W> DECODE: EOU 
FORWARD: EOU 
REVERSE: EOU 
OVERFLOW: EOU 
GLITCH: EOU 
WO: EOU 
AP2: EOU 
APS: ECU 



9 

10 

11 

12 
13 
tt 



; upc decoding direction flag 

; code 3 of 9 label direction flag 

; upc aea/parlty rap reverae flag 

;.tttl aricrocontrolUr If glitch detected 

; aUeu use of TAI aa wand data Input 

; enable Vt upc addon aeg. 

; enable P5 upc addon aeg* 



;• DECODER MASK REGISTER BITS 



UPC: 


EOU 


0 


• 


EAU: 


EOU 


1 


• 


UPO: 


EOU 


2 


• 
• 


C39: 


EOU 


3 


• 


125: 


EOU 


4 


• 

■ • 


caAi: 


EOU 


5 


• 


C93: 


EOU 


6 




C128: 


EOU 


7 


• 



upc decoder flag, do It If true 

ean decoder enable flag 

upc d label decoder enable flag 

cede 3 of 9 decoder flag, do It If true 

Interleaved 2 of 5 decoder enable flag 

cooVa-faar decoder enable flag 

code 93 decoder enable flag 

code 128 decoder enable f leg 



START Of CODE 



ORG 



; internal ROM base 



EXCEPT! OH/ INTERRUPT VECTOR TABLE 



vena: 



EOU * 

DC I RESET 

DC INMI 

DC I SPARE 

DC ISP AXE 



COLD5TART 
• /POWER DOWN 
(I SPARE) 
<IX12) 
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DC 




DC 


IT AO 


DC 


I1M 


DC 


ISTKH 


DC 


I SPARE 


DC 


1 SPARE 


DC 


ISPAAE 


DC 


ISP ARE 


DC 


nil 


DC 


1 SPARE 


DC 


1SPARC 


DC 


ISPAtC 



fISTRO 
TtKf I A OVtlUOU CWUM 
/IfcttT '»*T l^D A«D DPTA 
VUWD DATA U*VT 
/OVER'lOV 
CIRSC) 
(l«R> 
(U!t) 

cnwi 

/ClUCR 
<U10) 
(!WI) 
(ITC) 



* STRU&S AW IRDW TAItC* 



xrS9: DC.i 



op>d«: K.I 0O,21.11.00,O1 f OO,O0 < 00,S^0Q # 0P f CO # O0 t O0,O0.0O 
f .„ M u «aaqi ioOOO $O401.l0300 f M900,««01,t0100 > M501 

tddStbl: OC.I »W f $U.t«^t1.MC f W6,»01 l MA.t09 f «$ 



aaPTlOM/WTOtHUPT HAJOLIR* ROUT !«• 

S; i - 



- POUt* ON RESET " •** 

IREttTi JWA OXDST , do ■ cold ot.rt 



, INNI (POWER DOWN WTEWD— 

KITS 



1 SPAKE (SPAKE INTERRUPT) 

\ mus » «0708,P6 5d|MbUtpuP . <m ^. 

; |XI2 (EXTERNAL LEVEL Z INTERRUPT) 

imtt (STROBE LOW IKTUWW 



ITAO <TINEK A OVERHOW COWTEKS)- 

1TAOJ ADO.I #1 , COURT ER 
RET! 



iTAIt 



-ITAI (WARD RASED VIDEO DATA !*"" I '^"'Zll,' U Ion If 

PUSHM A0/D0-02 ; Rott th»t tl^tr A U~ Irput It ion 

CU p2 • ftcirvung » bor 

EXG.I DH2 t COURIER ; ftt tl«or owrf Ion 

•TIT m,H 

JHPR.S CS.ITAI i 

TEST. I RVt.DRZ 

JHPK.S Z # ITAIJ 

ROME fSTFH.DO ; TARL 

JMPt.S ITAI 2 

ITAI J: ROW P13,D0 

LSK A4.DC 

ASL.I M,D«2 

ADO 02, DO 

ITAI Zl HOW TAUCRT.D1 

HOVE OPT R, AO 
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WOVIM 00>P1,(AO>* 

CMP #G&t«0,AO 

jhpi.» nt,mi_3 

MM PSOATA.AO 

ff lUI 3t MM AO, DPI! 

3 ITAMX/Ti POP* A0/D0-DZ 

RET I 

* tut 4t Titi.i nn.m 

JHPR.S Z,ITAI_5 

mm twrr,»i 

MOVt 01.TW.LMT 
ITAMXIt 

tQ IHJ 5: MM P12.D1 

LSR «*,0t 

ASL.I «,0H2 

ADO 02.01 

MM 01.TALLMT 

JMPA.t IT A! OUT 



TS - ISTRH (OVERFLOW) 

'° I STIR t SCLR fRESETFl.P* 

•SET •OVERFIOW^SR 

Rill 



-IISC (RECEIVE SPECIAL C0W1U0N INTERRUPT)' 

•UN (RECEIVE OATA NORMAL INTERRUPT} 

-KM (EXTERNAL INTERRUPT fl) 

•ITIO (TIMER t OUTPUT INTERRUPT) 



; ITS! (CLITCN DETECT INTERRUPT) 

ITII: SCLR fitES€TFE,P4 ; reset the front end 

ITST WLITCR V SR ; itft glitch flag 

JNPR.S CC,IT|! 1 ; if set, tell eontrolltr of glitch 

MOVE.I «51,DH7 

CALLA outch 
ITII 1: RETI 



; 1X10 (EXTERNAL INTERRUPT #0)- 

30 . a ; IXMT (TRANSMITTER INTERRUPT)- 



-ITC (TIMER C INTERRUPT)* 



36 



lummimnunmmiiimwmtuimmii 
;/ 

;/ SYSTEM SUBROUTINES 

;//////////////////////////////////////////////// 



OUTCH send a single character over the 7 lower bite of port 1. Use the 
output signal OAVL to signal to the KPC that we have placed a character 
on the •local data bus" and use the Input DACX from the HPC to signal 
;• acknowledgement on receipt of the character. 

Enter ulth the character fn DH7. 
;• Timing is as follows: 

good dste good data 

;• OATA 777T i??7777777| ... 



;* OAVL 



;• 0ATJC T 1 L 

12 3 4 5 6 7 890 123456 

(1) 68200 nonttors *DA«. Halting for it to go high 
5a ;• (2) Then, 68200 placet data on Pl1/Port D 

;• (3) Next, 68200 asserts *0AVL 

(4) Meanwhi le, the KPC monitors *DAVL for assertion 
;* (5) Then, HPC reads data off the bus 
;» (6) And, then, MPC asserts •DACC 

(7) 68200 looks for DACX to go low 
;* (8> When 68200 im it low, it reUaces *DAVL and exits 
;• (9) HPC tun I tors *OAVL, when It goes high 
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CO) It rt It tata TACK ind aittt 

autch: Mil *WCI,P4 ; «»t for hpc to raitait -Dac* 

jMPt.I CC.outch 

WVt.l DHT.Ptl J chaf ■« K*T 1 t bit. 0 • 7 

ICU »AVl,r4 ; atroba data Into tht alcro-ccntrolltr 

outtht: MM lOACT.P* ; loop, ultlnc for *ck«*l*dc.r»nl of 

jWHUS CI,cvtcM ; rtctlpt of eharaetar part 1 

WCT «>AVl,P4 
•CI 

Uaino DAOC 01 on •trnchronou. aarial Input ott ch.'acitra In • ttrta- Into 
I- 5 Subftt (UMt algnlflcant bit flrat). 1 tlori bit. om nop bit. 

;• Tht fortat It ttandard. 

|//// i'^^J^' 777 ,7/// '''aJK'bf ,t0P bU 

atart bit 



I* 

Inch: 


MOVE 


#TlMC/2,Pt1 




at 


PO 


Inchlt 


ITST 


»ACt,P4 




JMPt.S 


CS.fncM 

ti.ru 




tSCT 




KLI 


« v rr 
«,rr 


Inch2: 


itn 




jMPt*t 


CC,lnch2 
fTlNC a rl1 


tndiSt 


MOVE 




KIR 


#4,pr 


1neh4: 


aT«T 


#4,pr 


JMPt.S 


CC.fncM 




ITST 
IEX6 


Oo.Dl' 




ADD 


fl.06 




CMP.I 


fB.OLd 




JMPft 


KE.tnchS 




IOI 


fi.ru 


fnchSa 


ITST 


tDAa.M 

CC.tnchS 




JMPf .1 




tn 





; ttt*> H to tot nlddtl of t tart char 

; Mlt for foil If* adpa of atart chor 

; anobta llawr a 
; clttr ITtO 

; mi ft tht nlddtt of atart char 

; toad II with rata c gnat ant 

; door ITtO flag 

; loop woltlni for tlaaout 

; than, ftt currant atttua ©♦ DAC* 
; tuhanpt It with b1ta In 01 
; lev ©rdtr bit f f rat 
; until a blta trenoftrrad 

- than, kill « 

; than 90 look for tho atop bit 
I return with char In Oil 



Ttt and TH Incra^nt tho odfreae 1nASby2or4<oneortwo »lt«ant 
•* width > and toatt for ovar ranoo wrepa. 



S 

a 

19. am 

AS < odata 7 



. AS < odata ? 



TI2: 


ADD 


«,AS 




CMP 


*2D£M0,AS 




JHPt.I 


U.TIM 




MOVE 


PCDATA, A3 


Tills 


UT 




TU: 


ADD 


#04, A5 




or 


#GD£ND,A5 




JMPtaS 


IT,TI41 




sua 


MIDTN t A5 


TUT: 


atT 





|. Tl 2 and Tl 4 cterteent tho addroaa In AS by I or 4 ( ona or two el 
wTdth ) and teeta for unbar 



Tl 2: SUB «B,A5 

CUP #G0ATA,A$ ; A3 >» ««O00 7 

MOVE*' £dWO-2,A5 ; If AS « W00O AS:- KM 
TlJWs UT 

Tl 4t sm P04.A5 

CMP #GDATA,AS ; A3 >- M000 7 

"Im*>5 ; if as « wooo AS:- as ♦ width 

TIJ41* tIT 
,e 

UAIT FO* 10 ElEMENTI <MI*> IK DATA DUFFEI 

i: MOVE DM»,DO ; pat currant Dptr 

SUI lPTt,DO ; attract 1PT» frcai It 

JMPt.S Pt.rooa! ; pot abeotute *alua 
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roo*2; 



TO 



76 



ftfC 
oe> 

J*>!.« 

ON> 

JMPR.S 

■UT 

JHPR.I 

WW 

MOVE 

MOVE 

A00 

M3VE 

WVE 

NOV£ 

MOVE 

•TST 



JNPA 
roon3t RET 



00 

**o,oo 

LT,rocm2 

rwjDTH-?O,O0 

It.rcxwS 

ROVtFlV,SR 

CC,roae 

. tovmv,n 

PCDATA, DO 

D0,DP1R 

#2.00 

DO.IPTR 

DOJlDP 

itivn.oo 

O0 # <P» 
#UAM0,« 

cs f reo« 



; 00 « 20 7 fio tli^cnti) 

f y*t...k*»p on Doping 

; tltf, tot DO > VIOTti T 

; If not, we're o**y. CxU. 

; check tht overflow bit 

; tf clear, Jutt fctap on Looping 

; elee, reeat iyitw point tn to START 



; If *and It uted for data fr^aut skip 
; to «tert K 

; rttttrt March loop 



20 



START Of MAIN CODE 



25 



;/ SET UP 68200 MEMO*!. PORTS, AK0 POINTERS 

\utimwimuiimnmiiimmmtmmm 



30 



35 



40 



p SET IP INITIAL PORTS AND CUAft lOCAt RAM 



COL0ST: 



C0LD1: 



or 
nove 

cut 



MOVE 
.OR 
HOVE 
MOVE 

aR 

CIR 
OR 

aR 

MOVE 



MOVE 

CLR 
MOVE 
CMP 
JMPR.S 



«SFBFE # SP 

SIOMS 

**r5FF,D0 

D0.00R1 

D0RO 

f*W40,Pl5 

«01W,PU 

P« 

P1Z 

P10 

*9 

#S0508,P8 



#SF800,A0 
07 

07,<A0>* 

#PM$EH,A0 

NE.COLDt 
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• SETUP SYSTEM POINTERS 



•CLR 

MOVE 
MOVE 



MOVE 
MOVE 
MOVE 



•CD ATA, 00 

DO.DPTR 

#2.00 

DO.IPTR 

00, (LOP 

**INIT,00 

D0,ePTR 



,P4 



? disable Internets 

j Initial iae the Stack Pointer 

; no us* for aio • P16 

' port 1 data direction - P17 

: Port 0 henrfshske/bustock/fast 
Tlaere end Interrupt* control 



J Interrupt Mask* • ACTIVE AT START 

; ITAO - TAlL/TAHt overflow 

; ISTRH - data buffer overflow 

; Til • gi Itch detect 

; ot startup deer interne I ram 

; MOO • toff fa Internal RAH 

; 00 • #10000 

; clttr raory pointed et by AO 
; auto- Incrementing the pointer 
; and looping wit 11 RAM end 
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MOVE,* «SC>7 
CMU outch 

movt.s wmvi r DM7 

CAIU outch 

• LOOP UAM1NC FOR IE TUP PARATMCTCtt 
• 

• legln etti^a for aode, decoder ••lection, Interleaved 2 of 5 Ubtt length, 

• etc. IhU argument eapeete » dot* packet in tht ferei: 

• byte #1 byte A7 byte #3 
CCI *«ek DECC0ER1 mU I2SLI 

• This routines fnetelte the paraweteri In place end rttwrno the«, ordered, 

• to the KPC elcrocont roller. 
« 

SEW; 



U1: 
SA2: 



START1: 



CAIU 


Inch 


» 


get CCI natk 


MOVE.S 


DL1.0N7 






CAIU 


tneh 




get DECODER ewek 


MOVE.! 


DLl,KCODEt1 






CAIU 


Inch 


• 


get 125 label length 


MOVE.i 


011JZSLI 






MOVE 


D7,St 


S 


apply the CCt aesk and return It to 


CALU 


outch 


» 


tht mpc to »m If wo got It right 


MOVE.i 


DECODE*!, 0M7 


; 


return DECODER MASK It to the KPC 


CAIU 


outch 






move.s 


I25U,0H7 


• 


return I2SLL to tbo UPC 


CAIU 


outch 






CU 


DO 


■ 


eetup addon label length 


•1ST 


#AP3 t St 






JMPt.S 


CC.SAt 






MOVE.R 


•5,0L0 








Ml 






•tit" 


«AP2,St 








CC,SA2 






MOVE.* 


f2,DL© 






MOVE.* 


DL0,ADDLL 






ITST 


•VM©,M 




chock for wand Input 


JMPt.S 


CC.START1 


» 


If required 


•SET 


*6,PH 


1 


turn on tlaor A 


•SET 


#9,W 


• 


enable the Internet 


•SET 


#10,Pfi 




end the overflow Irq 


JMPt.S 


START2 




•SCT 


«ESETrE,PA 






CI 







SEARCH FOR START - LOCATE A POSSIBLE UlEL START 



efei CALU roc* 

;* HMD A URGE WHITE SPACE SUCI THAT e0 > o1*e2*o3 



aergfn; 



nergml: 



•1* out: 



MOVE 


IPTR 4 A5 


MOVE 


CA5),D0 


CALU 


TI2 


MOVE 


CAM, 01 


CALU 


Ti2 


ADO 


(A5),D1 


CALU 


T12 


ADO 


<A5>,01 


CXP 


D0,D1 


JMPt.S 


LT,eft out 


MOVE 


IPTR.aJ 


ADD 


#04, A3 


CMP 


OGDETO.A5 


JMPR.S 


LT.aargiM 


sue 


eVIDTH,A5 


MOVE 


A5.IPTR 


JMPt.S 


efa 


MOVE 


IPTR,D2 


MOVE 


02,UST1 


tug 


•SV2.D2 



get eO 

get e1 

point it e2 

01 • e1*e2 

point tt e3 

01 • e1«e2*e3 

eWe2»e3 « eO ? 

If m, we're okay, get out 

else, aove I PTE to next tpece 

and ret tort teet 



; we've found e wide apace 

; ifidate the Eptr 

; store ewey tPTR eddreeo 

; eufatract 1*o free* iPTft ADO rate 
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ADO 

•ft oitf: move 



K3ATA,D2 
CC.ife.outl 



S1AAT THE CODE 3 Of 9 DECODER 

;• 

cod«39s 



e39Ji 



ITST 
;kpa 

CALLA 
ADO 



aft 

MOVE 

CALLA 

CMP.I 

JNPt.S 

CMP.i 

JMPA 

•at 

JMPR.S 

WP.i 

JNPA 

CMP.t 

JHPA 



*C39,DtCCOER1 
CC.eodeUPC 
TI2 

{AS),D1 
00,01 

CT.CodeUPC 

RlA0El_iUr>1,A4 

c31U 
fS0C,0L4 
NE,c39J 
*01,DL5 
HE.codeUPC 
ffOREUAR0,SX 
e317a 
*0o,0l4 
NE,CodaUPC 
#08,013 
NE,coo*ijPC 
MOftEUAtt.SR 



02 > 

Y*\ ealt 
not *r*p point tr 



: teit iwltch, do cod* 3 of 9 7 
: iitftch not doted, »*ip It 

point at e4 
: 01 » e1*e?«e3*e4 

e1*e?~e3+e4 > eO 7 

If »o, 90 to code UPC 

Intt lebel •irlng buffer end pointer 



; LOOK rOR A S1MT CHARACTER 
; barj»ttern » X01100 7 
; no... try foreword etsrt 
; space ^pattern ■ X0001 
; not 0 Mtdt. Quit. 

; Yctl we ere decoding Ubel reversed II 

; of. If bar ■ 100110 I space • X1000 
; no »tart pettem found. Quit! 



we ere decoding foreword 



;• HOW, TEST CHAR WIDTHS PER SPEC. 4.3. 17 • 4.3.23 



c317«t CALLA 



c318e: 



c319e: 



c320»: 



cJ21e; 



c322o: 



HOVE 

ISR 

ADO 

CMP 

JHPA 

HOVE 

ASL 

ADD 

CMP 

JMPA 

MOVE 

ASL 

ADO 

CMP 

JKPA 

HOVE 

LSR 

ADO 

CMP 

JNPA 

HOVE 



CMP 

JKPA 

HOVE 

ADO 

ADD 

CMP 



MOVE 



c317 



D1.03 
f1,D3 
01 # D3 
T2,D3 

CT.codeUPC 
01,03 
#2,03 
01 ,03 
T2,D3 

LT.codeUPC 

00,03 

f2,D3 

00,03 

T1,03 

LT.CodeUPC 

00,03 

#1,03 

00,03 

T1.03 

CT,coddJPC 

01,03 

03,03 

01,03 

03,00 

GT,codeUPC 

00,03 

03,03 

00,03 

03,01 

CT,codeUPC 



02,A3 



; AT EXIT 02 • e1*e2*e3*e4*e5*e6+c7*e0*e9 
; 01 * narrowest specs 

• DO « narrowest bar 

; get narrowest specs 
< sale «S*1.5 

; HSM.5 > ttldett_epact 7 

; yes, quit. Lass then «1n elcn ratio. 

cole NS*S.Q 

RS*$.0 < *lsest_spee» 7 

yes, quit* greater then mi elan ratio 

get narrowest bar 

cite M*5.0 

MB*S.C < widest bar 7 

yes, quit, greeter than sax elem ratio 

else 

catc NiM.5 

Bi*l. 5 > w<6est_ber 

gat the narrowest space 
caU *s*J 

narrowe*t_bar > H$*Z 7 

get the narrowest bar 
calc HB*3 

narrowest space > Ul*3 

EXIT WITH* 0K7 — > CHARACTER 
04 m tAI PATTERN 
02 •*> CURRENT CHAR WIDTH 
Dt «> NARROWEST SPACE 
00 "> NARROWEST BAR 
; store test jiidth at start 



START A LOOP LOOKING fOR CHARACTERS 



c39loop: 



MOVE 
ADO 



JKPR.S 



c39loop1: HOVE 



1PTR,A5 

#20,A5 

SGDEN0.A5 

LT,c39loop1 

SV1DTH.A5 

A5,!PTR 



; aove IPTR to nest cheracter 
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CAIU 
CALL* 



c311a 



loop. If Wfiury, for date 
C£T IAI AND IPACC PATTfMS 



;* Un tht bar end ep»ca pattamt calculated above to eft t charecter. If the 
ehereeter of tndet U Invelld eatt t*t oVoder. Tht following code tip(t* 
Mti Mac* 4.3. K, 4.3. 1$, and 4.3.16 tntht technical ipoelf Icotton. 

• 

If bar pet tern • 0, then If tpect pattern • 7 chrptr * U 
If ••pet patttrn • It chrptr • 43 

;• If tpect peturn • IS chrptr • 42 

ff apace patttrn ■ 14 chrptr • 41 

;* tf not thett Inveld pattern, quit. 

;• otherwtee, ca I cut at* chrptr »•: 

;• n0*(apaet v lndexUpKtjMtttrn)-1)) • (bar Jndt*<ber j»ttam» 
Then, uaf np chrptr at on index uaa aither labia af39 or *r39 to pat 
a charoctar. 



c3H: 



cSUJ: 



eSU 2: 



c314 3: 



c313: 



c316; 



c316 1: 
c316~2: 



CM*. I 

o».i 

JMPt.S 

Nove.i 

JftMt.S 
JMPt.S 

move.o 

JMPA.S 
CMP.i 
JNPt.S 
KM. I 
JMPft.i 
CMP.i 
JMPA 
M0VE.0 
JMPt.S 
MOVE 
ADO 

MOVE.! 
JHPA 
SUM 

Move 

ADO 
KM. I 
JMPA 
ADO. I 
CU.I 

nn 

MOVE 
JKPA.S 

wove 

ADO 

HOVE. I 



•0,014 

at,c315 

•07,015 

tt ,c314 1 

#44,010" 

c316 

•ii.ots 

«,e314 I 
•43,010" 
c316 
•13 ^5 

» 5 

c316 

•H,0t5 

tf,codaUPC 

•41,010 

c3U 

tap indajt,A0 
D5,A0 
(A0),010 
EO.codaUPC 
•1,010 

fUr lndex,A0 
D4,a5 
<AA),0M 
E0,codaUPC 
DL1.DL0 
OHO 

iF08EUUtD # n 
CS,c316 1 
ter39,A0 
c31o 2 
ixf39 # A0 
DO.A0 
CA0),W7 



; bar pattern ."0 7 

; If yes, and 

; apact pattam • 7 

; than, chrptr • a 

; If apact pottorwi ■ 11 

; than, chrptr • 43 

; ff apact pattern - 13 

; than, chrptr • 42 

; ff apact pattam • 14 
; tlaa. Invalid patttrn. 
; than, chrptr ■ 41 



Quit. 



; fat apact fndu tablt boat 
; calc offtt 

; oat (apact 1ryJtK(ipsct a pttttrn)) 
; If * 0 V invalid Index. Oult. 

; fat bar Index tablt beat 
; calc bar tablt effatt 
; tat (bar IndaxCbtr cottarn)) 
; If - 0, Invalid Index. Quit. 
; ff okay, calc chrptr 

; decide char tablt to est 

; ff for award • falat, uat revert t tablt 

; ff for award * true, uaa forward tablt 

; pat character 

; HIT WITH OS •*> SPACE FATTER* 
; 04 — > IAI PATTtW 

; 0K7 •*» OUUI 

Thft cubroutlno fa called fro* tht astn flow of tht aloorlthai. It teata 
;• tht tfxtt of tleaajnts within t cntrtcttr for corrtct arldth rat lot* It 
Meat tht valuta of tht widest bar and apact, atortd respectively In Tl 
and T2 by tht arpuaent c311t previa* I y executed. Now, find the total 
of tht a (enema ajakfnf up tht currant char act ar and find tht narrowest 
;* bar and specs. The tactions oft thla arpuaent correspond to eectlone 
;* 4.3.17 through 4.3.23 In tht technical documentation. 



cSUt 



C319: 



CAIU 



MOVE 

LM 

ADO 

OW> 

JMPA 

MOVE 



JMPA 
MOVE 



c317 



D1,D3 
•1,03 
D1,03 
T2,03 

CT,codeUPC 
01,03 
•2,03 
01,03 
T2,D3 
U,c 
00,03 
•2.03 



; AT BUT 02 ■ char width 
; 01 ■ narrow* 

DO • narrowest bar 
; pat nerroweat apact 
; calc NS*1.3 

; «s*1.5 » w!dttt_apace f 

; yes, quit, last than tin alaa ratio 

; calc tfS.O 

; W3.0 < wleaat.apact T 

; yes, quit. «re«tar than a*x ales ratto 

; pet nerroweat bar 

; calc M*3.0 
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70 



75 



20 



25 



30 



35 



U?0t 



c321: 



c322: 



ADD 
CMP 
JHPA 
CMP, I 
JMPR.S 

move 
ist 

ADO 

CHP 

J HP A 

MOVt 

ADD 

ADD 

CMP 

JHPA 

MOVE 

ADO 



• D0.D3 
T1,D3 

lT,cod»UPC 

«,DU 

C0,c321 

D0.D3 

#1.03 

D0,D3 

11,03 

Ct.cotMJPC 

D1,D3 

03,03 

01,03 

D3,D0 

GT.codeUPC 

00,03 

03.03 

00,03 

03,01 

CT.eodeUPC 



f WK-5.0 « wldett bar 7 

; yet, qjlt. greater 1h*n w* ale* ratio 

; If Ur pattern • 0 tklp fhla §ftp 

; alio 

; celc MB*1.S 

; *8M.5 > wlo>it_ber 

; get the rmrro«*»t ipece 
; celc W«3 

; r*rro-eit_h*r > HS*3 7 

; g*t the nerrowctt bar 
; uk NS*3 

; narrowest apace > HB*3 

OUT ••> CHARACTER 

04 «•> BAR PATTEM 

02 CURRENT CHAR WIDTH 

t 01 ■■> KA8R0UEST SPACE 

00 ■-> KA8BOUEST IAt 



Ccecute tht reti© of th« tm of the elcecnta in the current character to 
element tO. If thla sua it greater than mx char ratio of lees then mSn 
;• char ratio quit. Itferonci eectfon 4.3.7 of technical efceueent. 
•a 

c307i 



HOVE 


A3,04 


J 


IS* 


•2,04 


; 


ADO 


A3.04 


• 


CMP 


04,02 




JMPA 


GT,codeU>C 




MOVE 


02,04 


• 


IS*. 


f2,04 


; 


ADD 


02,04 




CMP 


D4,A3 


# 


JMPA 


LT,codeUPC 





act a copy of laat cher nldth 



; IV «. CW^S/4 



Corpute the ratio of the aw of we element* in wie current ««™wr « 
element eO. If thla ratio fa greater than ni gap ratio or less than «in 
;• gap ratio quit decoder. Reference taction 4 .3.0 of technical docu«ent. 



cjoa 



hove 

HOVE 

ADO 

CMP 

JMPA 

MOVE 

ASl 



JMPA 



TEST CHARACTER 

CMP.I 

JMPR.S 

HOVE.t 

AD0.I 

HOVE.t 

CMP.R 

JMPA 

JMPA 

eiltloop: MOVE 
ADO 



tPTi,AS ; get current 
<A5>.D4 get eO 

04.04 ; eO*2 
04,02 ; CU < 2*eD 7 
LT,codeUPC ? yea. Ouit. 

04.05 ; save e0*2 
#4,04 ; e»32 
05,04 ; e«30 

04,02 ; charjiidth > 30*efl 7 

H!,codeUPC ; yes. Quit. 

02,A3 ; elte, Ustjrldth :« charjrfdth 

fOUHO FOR STOP CHARACTER 



c39 3« 
c39 4t 



JMPR.S 

sua 

MOVE 
MOVE. I 

at 

CALIA 

ADO 

OJHZ.I 

CMP 

JMPA 



•42,0117 

EQ.extttoop 

0H7,(A4H 

i1, LABEL BUF 

LABEL BUF,0LO 

•32.DL0 

LC,c39loop 

codeUPC 

IPTR,A5 

i20 f A5 

#CDEKD,A5 

LT.C39.3 

WIDTH, A5 

<A5).D0 

*04,DL7 

01 

Tl 2 
CA5),Dt 
DL7,c39jfc 
D0,D1 

CT.eodeUPC 



MOVE. 8 #S43,0H7 



; If 042d <"**>• ttop char 
; exit 

; elte, store char In label buffer 

; update buffer char Count 

; test label buffer for too «ny eher'a 

; If 00 <■ 32 keep on going 

; elae, too euny char" a. Quit. 

; look for a trailing eorgin 

; rove pointer to trailing naroin 

; ref 4.3.10 



; get poaaible margin (elO) 



; eove pointer to e9...ce 
; *u* e6+e7«e6+e9 

; «6*e7*ao>«o > elO 7 

; yet, oargin too email. Quit 

; elae, LABEL FOJMO 111 

; aign the label type code 3 of 9 
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CM LA (xnch 

mi Mil »ur,AO ; PttKl TN( DfCOOfO ItBfl tTRtHG 

WOVE. I C*0>»70L7 
0C7.0H7 

5 CALU ooteh 

tut *r»fuw,M 

J>t>t.» CC # cJ9_6 ; If forward • feWe, reveree lebel 

H9Jt NOVf.l (*0)%D«7 

CAtU outeh 

OJM.t 0L7,c39 5 

JUPA found label ; then # InUh up 

TO -("hOH? ; pet char n,n-1,n-2.. ..3,2.1 

CAIU Outch ; tend thew oat 

OJNZ.I 0l7,cJ9 6 ; until don* 

JMPA foundjebel 

;• The following rout 1m It tht equivalent of th# routines 4.1.11, 
4*3.12 end 4.3.13 found In tht technical ooeupentetlcn. The ber 

;* end specs breekpolnt* ire found by Multiplying tht leroeet ete»«nt 
*-wg tl, e3, e5, e7, and t9 by 0.700. Sferiterly, tht leraeat M»et 

;• encuno ela-anta e2, e4, eo, end «8 It eulttplled by 0.700. 

;• Tht results trt UMd to oenerete two bfntry eWecter petterna. A 
rtgltttr ft ttt to *ero and ttch btr (or specs In tht case of tht 
ipact pattern) It MRomd with tht wfde/nerrov breakpoint. If tht 
element It Itrotr than tht breakpoint tha remoter la Incremented by 
2Q ;* «*» than tha remitter It Multiplied by two. In tha caee of tht btr 

f* ptttern, ff tht result aqualt 31 (all wide bars) tha rtglittf la tat 

;■ to itro. 

r 

Tht arguttnt rttuma with btr patttrn In IX and tpact patttrn In 05 
£ and tht Itrfttt bar In T1 and tht laraest tpact In 12. 

cSllt: Ol 04 j el tar stortsot for btr pattern 

25 CI* OS ; el tar etoreeoe for space pot tarn 

1PTH.A5 ; act currant 1PTI 

CAtU TI2 ; novt polnttr to tl 

MOVE <A5>,00 ; and ott tl 

MOVt.l #4,017 ; Ht up a loop counttr 

c311tjs CALU TI4 ; novo polnttr to next bar 

Ot» <A3),00 / If P0 >■ e* Itavt old value In 00 

30 tt,e311o_2 

C. NOV! <A3>,00 ; else, ff DO < at , DO x* cM 

c311e_2: DJK2.I DL7,c311eJ ; daenaant the loop counter 

MOVE 00,T1 ; atort away tha largest bar found 

MOVE 00,01 ; auttlply 00 by 11/16 - .69 

«0 01,01 ; tf2 

A00 01,00 ; n*3 

ASL «,D1 ; n»8 

35 ADO 01,00 ; W3 ♦ n-a • nM1 

Ltt «,00 ; n*11/16 

Move. I #5 f DL7 ; g«t tht btr pet tern 

MOVE (PTR,A5 ; eat IPTI addrett 

^ CALU TI2 ; point at el 

>Bl12: ADD 04,04 ; 04«2 ran: 04 la bar pattern 

«P <A5>,00 ; ber.bkpt > e« 7 

40 JMPt.S GT,c3l2_1 ; no, fncrenent 04 by 1 

ADO #1,04 

C312J: CALU TI4 ; ecva pointer to next bar 

Ml.% DL7,c312 ; decrement tht loop counttr 

OlP.t 131, DL4 ; than, test If ber .pattern • 31 

JOT.* «,c311b 

CU 04 ; if 04 - 31 , than 04 - D 

# 

e3iib: movc ipti,as ; nm m utcen space 

""*" TI4 



MOVE (A5),00 

MDVS.t #3,0L7 ; eet up e loop court 

c311bj: CALU TI4 ; tnerenne pointer to next epect 

°** (A5),00 ; aeerch Ing for the largest epect 

Jnp*.$ «.c311b_2 ; 00 <« HI 7 

50 ^ f!! ^ CA5),00 ; no, replace old ell with new etf 

c311b_2: 0JH2.0 0L7,c311bJ 

122 !?'!? itori %m Y thm Uroett spact 

MWE 00,01 ; CALC IPACC MEAXPOIITT 

ADO 01,01 

IS? 51 ,D ? rfiWM - .59 

ASL i2,D1 

ADO 01,00 

SS Ut d4,00 
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c313: 



c3U It 



cJt7: 



c317 1: 



c3l7 2: 



MOVE 

c317 3: AOO 

DJWZ.t 

eZMAs ret 



MOVE 
MOVE.B 

C*P 

JNPR.S 

ADO 

DJltZ.I 

RET 



CAILA 

WOVE 

MOVE 

CA1U 

MOVE 

AOO 

WOVC,l 

CAILA. 

CMP 

JMPR»S 

MOVE 

AOO 

SLSJ.I 

JKPt.S 



1PTR,A5 

•4,017 

TU 

05,0$ 

(A5).O0 

6l.e313 1 

#1,05 

Dt7.c313 



(PTK.A5 

re 

<a5),D0 

00,02 

TI2 

(A5),01 
01,02 
e7,DL7 
112 

<A5>,00 

LE,c317J 

<A5>,D0 

<A5),D2 

#1,DL7 

£0,c3l7 4 

112 " 

(*5>.D1 

LE,c3t7 3 

<A5),D1 

<A5>,D2 

DL7,cl17J 



CAU S'ACE *MTCRN 

get beck tFIR 

»tt is? loop counter 

D5«2 

•peceJApt > eN 7 
no, 1ncr«ft-nt 05 by 1 

EXIT WITH 03 — > SPACE PATTERN 
04 ••> IAR PATTERN 
T1 --» LARGEST AAA 
T2 »o LARGEST (PACE 

FIND THE NARROWEST BAI 4 SPACE AMD TOTALS 

jet current IPTt 

point at element el, first bar 

get e1 

AOO at to eurrtnt eherjildth total 
ma* to the f fret apace 
•nd oot ft 

■at ut> ■ loop counter 
next bar 
00 <• eN 
no 

yea, rep! act old tH In 00 
•mall ban Into toUl 



next space 
01 «■ tN 

no 

yea, replaced 00 with eN 
add spaces to total 

AT EXIT 02 * e1**>*e>e4-»e5+e6>e7*eft>c9 
01 ■ narrowest apece 
00 • narrowest bar 



STMT THE UPC/EAN DECODE! 
INCLUDE UPC 



;* IF A GOOD LABEL tS FOUND, RESET STSTEM POINTERS AMD BE* ENTER THE DECODING 
;• LOOP. 



found label: ICLR 
MOVE 
MOVE 
MOVE 
MOVE 
ADO 
MOVE 
MOVE 
•TST 

. JMPA 
•SET 
JMPA 



*8ESETFE,P4 

#elNIT,D0 

DO.ePTR 

#GDATA,D0 

DO.DPTR 

«,DPTR 

OO.IPTR 

DO ,1 LDP 

eVANO.S* 

CC,sfs 
RESET FE.P4 
•fa 



; reset system pointers 



then, start The decoders 



JF NO GOOD LABEL FOUND, 
;• THE DECODERS. 



INCREMENT 1PTR TO NEXT SPACE AND RESTART 



no decode: MOVE 



no dl: 



CMP 

JKPR.S 
SUB 
MOVE 
4MPA 

END 



LASTt.AS 

«4,A5 

#GDEHD,A5 

lT,no dl 

WIDTH, AS 

A5.IPTR 

afa 



; else, e»ve IPTR to nest space 
; and restart test 



; loop back to top of argument 



END OF CODE 
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;////////////////////////////////////////////////////////////////////////////^ 
;/ ^ 

;/ UPC/EAH DECODER* 4 

;/ * 

U MxeO RF6ISUR ASSICWEMTE: k 

;/ A5 - fc»tt »**r*M of latch 4 

;/ A6 - bate pointtr Ulw.yi $00000000) i 

U t 

uniiiiiiuitiiiiiiiitninnniuuunuiinuiuiiiuuiiuuininiuini 



CC1 A CHARACTER. Su* tlintnti tO to a3 to calculate tht current char width. 
If eO If • bar (bit 1 of fPTR ft clear), then sit Tl :• «0 • ilVid T2 :■ 

• tl ♦ e2. Jf eO fa • apace (bit 1 of IPTR ft aat), than aat II :• *2 ♦ al 
end T2 :» el ♦ e2. Sat rat f el i» Tl/cherj#ldth and retfo2 T2/cber_*ldth. 

* Than, calculate character weight aat 
ff rat lot < thretM, weight £■ 0 
If retfol < threeh2, weight 4 
If ratlol < thre«h3, yafght B 

♦Ut , weight !■ 12 

than: 

If ratio? « thretM, wtfght :■ welght*0 
ff ratlo2 < threth2, weight x« weight* 1 
If ratlo2 < threehS, weight wefght*2 
also , Might :• wefght«3 

c921: MOVE Ajpc fndax # A0 ; gat character tabta baaa 

; wt 1ght*2 Is char off aat baaa 

MOVE IPT1,A5 ; raf f .3.21 

MOVE <A5>,D0 ; aO 

CALLA TI2 

ADO <A5),00 ; eO*e1 

CALLA T12 

ADO <A5) 4 D0 ; tO*el**2 

CALLA T12 

ADD (A5) ( D0 ; DO r« eO*e1*«2*e3 

.* 

ITST #1,IPTR ; la aO a bar or a apact ? 

JKPt.S CC,ber 921 ; If bft 1 fa aat aO ft a SPACE II 

spjrei: MOVE <A5),D2 ; «3 

CAILA Tl 2 

MOVE <A5),D4 ; e2 

ADD 04,02 ; D2 • Tl t>t2 

(a5),D4 ; DA - T2 1- t2»e1 

JMPt.S c«21 1 

ber_©21: CALLA Tl 2" 

MOVE <A5),D4 ; a2 

CALLA Tl 2 

MOVE <A5),D2 ; al 

^ ADD 02,04 ; 04 - T2 e1*e2 

CALLA Tl 2 

ADD <A$),D2 ; 02 - Tl eO+ol 

00 - CHAXJUTDTJ! 
02 ■ Tl 
04 • T2 

cWIJ: MOVE #70, A2 ; Tl 

MULU A2.D2 

01VU ' 00,02 ; D2 « TT*70/CW 

CMP f25,D2 

; 02 < 25 , weloht ■ 0 

JNPt.S LE,c921 S 
c921_2: CMP #35,02 " 

JKPt.S Cl,c921 3 ; 02 « 35 , weight - 4 

ADD #8,A0 

JKPR.S c92t 3 
c92t_3i CMP #45,02 

JMPt.S 6T,c921 4 ; 02 < 45 , weight - 0 

ADD #1o,A0 

jkpr.s c92i 5 

c921 4: ADD #24,A0 ; 02 > 43 . yafght ■ 12 

c921_5: HAO A2.D4 , T2 

OIVU 00,04 ; 04 - TZ*70/CU 

CMP #25.04 

JMP *-* LE.C922 ; 04 < 25 , Might :• welghfO 

e*2lj6* OIP #35,04 
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rt2t 7: 



JUPB.k 


cMl 7 


; M « 35 , 


ADD 


»2.a5 




iMPt.S 


c«2 




MP 


•45,04 




JMPR.S 


CT.C921 8 


; 04 < 45 . 


ADD 


•4.A0 




JKPt.I 


c922 




ADO 


•6, AO 


; 04 > 45 , 



wetgM i» wtCAT'i 



weight *ttght«2 



e92l 8: ADO •A.AO ; 04 > 45 , weight :• velght*3 

; AT EXIT AO — > VEIGHT'BASE - 
; 00 CHAR_W1DTH 

!• USE THE CALCULATED WUGHT AS AN OFFSET WO THE CHARACTER LOCKUP TABIC. 

; REF 9.3.22 

C922: MOVE <A0>,01 ; AT EXIT OMt u» CHARACTER 

; DLT PARITY 

; 00 **> CHAR VI DTK 

;• CHECK fOR AMBIGUITIES. (REf 9.3.23) If character It a "1" or a '2" tett 
;* character In accordance with the enfcfgulty rvlee etwwarlied In tht follow- 
;* (no table: 

:• tf CHAR and eO arc* PARITY and INEQUALITY then CHAR BECWES 

"S», elee •2" 
•8«, else *l m 
»8". else 
•8", eUe -2" 
•7-. elc« •1" 
■7", etee "1" 
•7*, else -1" 
•7", etae 

MP.8 «02,OH1 ; If character • -2" 

JMPR.S KE.C9Z3 5 
HOVE iPTR.AS ; pet IPTR 

CALLA T12 

MOVE <A5>,03 ; pet 03 • el 



(1) 


•2- 


apace 


aven 


e2 > el 


(2> 


■2- 


bar 


•van 


•2 < el 


(3) 


■2- 


•pace 


odd 


•2 « el 


<4> 


•2» 


tar 


odd 


a2 > el 


(5) 


■1" 


•pace 


odd 


e3 > e2 


(6) 


■T« 


tar 


odd 


eO > e1 


(7) 


■f 


epeee 


even 


•2*2/3 > «3 


(6> 




bar 


even 


•1*2/3 > eO 



Ttt ; 

MOVE (A5),04 ; get 04 • *2 

8TST #1,A5 ; end eO » SPACE (bit 1 set > 

JMPR.S CC.C923 2 

CMP.8 f0 f 0L1 ; end PARITY EVEN <■ 1> 

JMPR.S EQ,c923 1 

09 03,04 ~ ; and »2 > el 

JKPt.S LE.C9ZS 4 

MOVE.I tttfl.OH? ; then char • -6- # elee -2" 

RET 

c923 1i MP 03,04 ; If cher • "2" and eO • SPACE and PARITY 

JMPR.S G£,c923 4 000 and «2 < el 

MOVE*! e*08,PNT ; then char ■ "8", else •2" 

RET 

c923_2: CMP.8 #0,OL1 ; If char ■ *2" and eO * tAR 

JMPR.S £Q,c923 3 ; end PARITY • EVEN 

MP 03,04 " ; end e2 < el 

JMPR.S GE,c923 4 

MOVE. I f$oe,DB1 ; then cher • "8-, etae -2» 

RET 

C923 3: MP 03,04 ; If char ■ *2" and eO ■ 1AR and PARITY 

JMPR.S LE.C923 4 ; ■ ODD and «2 > el 

MOVE.8 f*08,DHT - ; then char - -8", eUe -2" 

cVZ3 4: RET 

cVZTS: MP.8 fSOI.OBI ; If character not « «1« or «2», quf c. 

JMPR.S «X,c9Z3_4 ; If character • "1" 

MOVE IPT8.A5 ; oet IPTR 

9TST f1 t A5 ; eO ■ SPACE ? 

JMPR.S CC,c923 7 

CALLA Ti4 

MOVE (A5),D3 ; get e2 

CALU T<2 

MOVE (A5),04 ; get «3 

MP.B «0,OL1 ; and PARITY • EVEN 

JMPR.S EQ,c923 6 

ADD 03,03 ~ ; 03 • e2*2 

ADO 04,04 

ADO (A5>,04 ; 04 • e3 a 3 

MP 04,03 ; 2»e2 > 3»e3 (e2*2/3 > «3) 

JMPR.S IE,C?23 4 

MOVE.O fS07,0H? 

RET 

C*23_6: MP 03,04 ; PARITY • ODD 

JMPR.S tf,c923 8 ; «3 > «2 

MOVE.B fS07,0N? 
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RET 

c923 7: HOVE (AS), 03 ; pet eO 

CMP. I SC.D11 ; &M 

jHPt.S F0,c923_9 ; TARITY Ml • EVEN 

ADD 03, D3 

ADO (A5),03 ; 03 ■ aOM 

CALLA TI2 

MOVE (A5),D4 

ADD 04,04 ; 04 • 

CMP 03,04 ; tW > e0 # 3 <tl # ?/3 > eO) 

JHOR.S LE,c923 S 
HOVE. I n07,DHI 
c923 8: RET 

C923~9: CALLA 112 ; PARITY clear « COO 

MOVE (A5),D4 ; 04 ■ el 

CMP 04,03 ; eO > el 

JMPR.S LE,c923 ft 

MOVE.I «07,DHT ; AT EXIT OKI ••> CHARACTER 

IEX ; W.1 «> PARITY §IT 

DO »■> CKAR_WIDTH 

;* CHECK WIDTHS <REF. 9-3.24). If curre*t_cher_wldth/lest - cher.u1dth > ems_ 
;* char ratio then return with char too big Indication. If ratio « 1/sim_ 

char'ratlo then return with char too small Indication. Otherwise, return 
;• with'successful indication, {max char_retlo ■ 5/4). 
,-• 

c924: CLR 06 ; TEST FOR TOO IIG 

MOVE A3.05 ; oet last width 

LSft #2,05 

ADD A3.D5 ; lU»5/4 

CMP 05,00 ; CW > IV5/4 

JMPft.S LE,c924J ; If okay, try teat for too small 

MOVE.I «Ff ,DHA ; too blfl indicator 

RET 

C924 U MOVE 00,05 ; TEST FOR TOO SMALL 

LSR #2,05 

ADO D0,D5 ; CVS/4 

CMP 05, A3 ; IV > CW*5/4 • REM A3 * lest_w1dth 

JMPR.S LE,c924 2 

MOVE.1 #SFF,016 ; AT EXIT 0H1 -> CHARACTER 

C924 2: RET ; 0L1 -«> PARITY tlT 

DO "> CHAR WIDTH 
; 06 — > OOtXf* OR 

; OOFr > too small 

; FFOO ■ too Urge 



DECODE PARITY SEGMENT MAP, if reverse it true, then reverse the order of 
the PARITY blU. If segment itrlng length li 6 use the following tabic to 
look up the segment type. 

encoded digit ■ 0 
encoded digit ■ 0 
encoded digit » 1 
encoded digit * 2 
encoded digit » 3 
encoded digit ■ 4 
encoded digit ■ 7 
encoded digit ■ 8 
encoded digit - 5 
encoded digit ■ 9 
encoded digit ■ 6 
encoded digit ■ 6 
encoded digit » 9 
encoded digit - 5 
encoded digit ■ 8 
encoded digit » 7 
encoded digit • 4 
encoded digit « 3 
encoded digit • 2 
encoded digit - 1 
encoded digit a 0 
encoded digit * 0 

If the length of the segment string Is 4, use the next table to look up 

the segment type. „ , 

00/19 oooo segment type, EAN8,L encoded dig t - 0 
OF/18 eeee segment type, EAH8,l encoded dig t » 0 
03 ooee segment type, UPC 06 encoded dig t • 6 
05 oeoe segment type, UPC 05 encoded digit • 5 



00/3A oooooo 


segment 


type. 


UPC A,L 


07 oooeee 


segment 


type, 


UPC 0 


OB/ID ooeoee 


segment 


type, 


EAM13,L 


00/10 ooeeoe 


segment 


type. 


EAN13,L 


0E/1D ooeeeo 


segment 


type. 


EAX13,I 


13/10 oeooee 


segment 


type. 


EAN13,L 


15/10 oeoeoe 


segment 


type. 


EA*13,l 


16/10 oeoeeo 


segment 


type. 


EAH13,L 


19/10 oeeooe 


segment 


type. 


EAM13,t 


1A/10 oeeoeo 


segment 


type. 


EAN13,L 


1C/1D oeeeoo 


segment 


type, 


EAM13,C 


23/3E eoooee 


segment 


type. 


UPC E 


25/3E eooeoe 


segment 


type. 


UPC E 


26/3E eooeeo 


segment 


type. 


UPC E 


29/3E eoeooe 


segment 


type. 


UPC E 


2A/3E eoeoeo 


segment 


type. 


UPC E 


2C/3E eoeeoo 


segment 


type. 


UPC E 


31/3E eeoooe 


segment 


type, 
type. 


UPC E 


32/3E ecooeo 


segment 


UPC E 


34/3E eeoeoo 


segment 


type. 


UPC E 


38/3E eceooo 


segment 


type. 


UPC E 


3F eeeeee 


segment 


type. 


UPC A,R 
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w 



15 



06 
09 
OA 
OC 



**S*mt type, upc 02 
ttgmrtt type, UK 03 
»«^»ot type, m-C 04 
eegnent type, IPC 01 



encoded digit • 2 
encoded digit ■ 3 
encoded digit • 4 
encoded digit • 1 



* ftte, the eegment string li en eddon or en error. 



22 
25 
00 



c92S 1: 



c925J: 



30 



35 



40 



45 



60 



55 



c92S; HOVE. I 
HOVf.l 
BIST 
JMPB.S 

cu 

MOVC.I 

ist.i 

ADOC 
DJW.I 
HOVE 

CMP. I 
JKPR.S 
ITST 
JWt.S 

oo>.l 

JHPt.S 
MOVE.I 
MT 

ITST 

JKPR.S 
CMP.l 
JKPR.S 

in 
mi 

JKPR.S 

rx>.i 

JHPt.S 

HOVE.I 
JHPt.S 
CMP.l 
JKPR.S 
NOVE.I 
JHPt.S 
CHP.S 
JKPt.S 
NOVE.I 
JKPR.S 
CMP.l 
JKPI.S 
HOVE. I 
JKPt.S 
CMP.l 
JKPR.S 
KOVE.I 
JKPR.S 

ckp.i 

JMPX.S 

JKPR.S 
CMP.l 
JHPt.S 
KOVE.I 
JHPt.S 
c92S 11: W.I 

JHPt.S 

KOVE.I 
JHPt.S 
CKP.I 
JHPt.S 
MOVC.I 
JHPt.S 



C925 3: 



c92S 4i 



c925 5: 



c925 6j 



c925 7t 



c925 8: 



c92S 9i 



C92S 10: 



c92S 12: 



•eyient type, 2 cher eddon 
legment type, 3 char eddon 
•tomem type, £880*111 



PARITY ,0L3 
LABEL BUF,0N7 

ncvcm.si 

CC,c92S 2 
04 

0K7,0l7 

oil 

04,04 

Dl7,c92Sjl 
04,03 

•4.0K7 

E0.c925.30 

■5.03 

CS,c92SJ3 

•0.0L3 

XE,c925_3 
M3A.OU 



; get PARITY pet tern 
; get teg length 

; If reverse It felae, don't reveree 
; PAKITT Mte 

; eet loop ix> for 4 or 6 peteet 

; divide PAX ITT by 2. eh If ting remainder 
; Into X, then eutt. 04 by 2 end then edd X 

; AT EXIT 013 PARITT PATTERN 
; next, teat 'for valid segment type 
; If teg length It 4 check ix* d % eenl 

; this thortcnt the eaerch path. If bit #5 
j It eet go Jmp to UPCEAiPCA_t sepmema. 

; aeg type 00 -> UPCA.l t 
; no? try next one 
; yea? Exit Kith teg type fn 0L3 
; and qui t to a* In algorithm 



•UPCD, DECODER 1 ; ara upc d label active? 
CC,c92Sj4 

•07,013 ; 07 »•> UPC.D 

«,c92S 4 



c923_13: 



CMP.l 
JHPt.S 



•EAR,DECC0ER1 
CC,c925 24 

not,oii 

e?,c92S_5 
•SOI.DLI 
C92S 25 

«sco7ol3 

KE.C92S 6 
«S02,0lT 
C925 25 

•uxCou 

ME.C92S7 
•S03.DI? 
c925 25 
•S137DL3 
NE,c92S 8 
*S04,0lT 
C92S 25 
•S1S.DL3 
KE.C925 9 
«07,DL1 
c92S 25 
•S167DL3 
¥E,c925 10 
•SOB.OlT 
6925 25 
•S1970L3 
XE.C925 11 

•sos.dlT 

c?25_25 
«SU,0L3 
NE ( c923 12 
«09,0lT 
C92S 25 

«ic7oi3 

NE,c92S 13 

•mo.ol! 

c9»_25 

#S23.DL3 
KE,c925_14 



Of m*> EAH13J.1 

aeg type EAM13-L? do apecfal routine 
to add eobedded char at aeg a tart 



00 



CAN13 12 



OE — > EAM13J3 



13 «> EAM13 t4 



IS — > EAN13J.7 



16 



1A 



EAN13 18 



EAN13 15 



EAN13 19 



1C — > EAM13 L6 



23 ■•> UPCCd 
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MOVE .1 r*06,DLl ; If UPC C »eo»<eni type do ip*cUI routlr 

JWft.S c925 2B ; to *4f**j**i*6 chef "tt »»9 e*l 

C92S H: CMP. I «57&t3 ; M •«> 1*0^9 

JHPI.I »C f c925J5 

MOvT.l .«09,D11 

A**.* c92S_28 
c*2S ISs CMP.I #*26,0t3 ; 24 UPC.CJ 

jhh.I *E,c925j6 

HOVE.I ftO5,0L1 

JMPf.S c92W6 
c92S 16: Of>.l «29,013 ; 29 UPC.E8 

inPt.f MS«c92S 17 

HOVE.I *S08,DlT 

jMPt.t C925 26 

C925 17: CMP.8 t*2A,0L3 ? 2A U*CJ7 

JMPI.S Nf,c925 16 

HOVE.I «07,DlT 

JHPt.f c92S 28 

c925 IB: D*.l H2C.DL3 ; 2C UPCJ4 

JMPt.S «,c923 19 

HOVE. I «04,OLT 

JHrt.S C925 28 

c925 19: CHP.I #Wl7oL3 ; 31 UPCJ3 

JNFt.t »E,c92S_20 

HOVE.I «03,DL1 

JMPt.S e925 28 

c925 20: or. I «C2,0L3 ; 32 UPCJE2 

JMPt.S HE.c925.21 

HOVE.I W02.DU 

JMPt.S €925 28 

C92SJZ1: CMP.8 WX~V13 ; 31 «> UPCJE1 

JMPt.S KE,c925 22 

HOVE.I 6*01,01.1 

JMPt.S c925 28 

c925_22t CMP.I 1*067013 ; 38 «> UPCJO 

JWt.t KE.C925 23 

CU.8 DL1 

JWHl.f C925J28 

•e 

c925 25: CMP.6 *S3F.Dl3 ; 3P •*> UPCA.t 

JMPt.S HE,c925 24 
lEt 

•e 

c925 24: at.8 OU ; error, no Mich ttgntnt type III 

KET 

ADO WW WAN ONTO EAN13 L SECHEWTS 

c925 25: HOVE.I fStt,0L3 ; tdd teoeent i.d. 

•TST IftCVWSE.S* ; if lefael ft nvtrwd, trett M UPC J 

JMPt.S CS,c92S 29 

c925 26: HOVE.I 806,DL7~ ; loop court tr 

MOVE fVAIEl 8Ur>7,A2 ; 9#t teoeent buffer END ♦! 

HOVE fUm~8UF*6,A1 ; pointer to tee ttrlno end ♦ 2 

C925 27i HOVE.I -<A2),-<A1) ; iwt dur't over by 1 petition 

OJU.I 0L7,c925 27 

HOVE.I DLVIA1) ; odd on embedded chtr 

ADO.I *01,LAI€L 8UF ; update ttrlno count 

in 

MO HEW CHAM ONTO UPC E SEGMENTS 

C92SJ6: HOVE.I «5E f 0U 

BTST MEVERSE.St ; if Itbtt it reverted, trett ee CAN 13 I 

JMPt.S CS,c923 26 

c925 29: HOVE.I 0L1 # LABEL Wf+7 ; «ove eefcedded chtr to tee. end 

ADO.I *01,LABEl~KJ; 

tET 

C925.30: ITff #EAJt, DECODE 11 

JKPi.S CC,c925 32 

DtP. I #00,DL3~ ; 00 EAN8 I 

JMPt.S NE,c925 31 

HOVE.I «19,DL3 
RET 

c92S 31: CMP. 8 *W.DL3 ; OF ■■► EAN8 R 

JMPt.f ME,c925 32 

HOVE.I fS16.Dll 
EST 

.« 

C925.32: ITST iUPO.DEttOEM 

JKPI.S CC,c925 36 

CHP.I #03,013" ; 03 •»> UPC 06 

jhpi.i ui.tvaja 
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•CT 






«tft,0l3 




«,r«23_i4 


m 




CMP.I 




JKPR.S 


■t,c92S» 


RET 




CMP.I 


•09,013 


JMPR.S 


IE,c92S_36 


ret 




CXP.I 


«a,oi3 


JMPR.S 


iE f c?2S_37 


IET 




CKP.I 


ftC,0l3 


JKPR.S 


IIE.c925Jo 


RET 




CIR.I 


D13 


IET 





; 05 UPC_05 

; 06 UPCJD2 

• 09 UPC J* 

; 04 ■•> UPC^M 

; OC UPCD1 

Jo* M- mi pi] 2 error, no tuch sepMit type til 

! «> rr If error 



CHECK FOR SUPPUMEeTAL ADDOR SEGMERT. If tl> sddon h " J 0 !.**? 

r . fourf, ch«ck If tht Lteit MSFitflt found Is UPC.C or f^J^ 
>• If not ont of theee, <jult. If one of these, then try to decode en eddon 

secordlno to the rules: me cm mi 

!• no TYPE FU> DECODE REVERSE tAPTR , # DIRECT 10H 

' GSTe fits* fslse currsf*«.roln • 3* reverse 

UPCE trut fslse cur remargin ♦ 34 ; ort **2 

UPC"A, l/E AMI, R true true IPTR torewsrd 

UPC"a,R/EAR8,R true fslst current^ro n 

UPC>|l/EAna # « fslse fslse curreM_»rgln foreword 

e926t MOVE IPTR.A3 

HOVE A5.IA ; MVS IPTB 

CKP.I #*S0,D13 ; ssfl type \*CJ 

JKPR.S ME,c926 4 

ITSY SHEVftsf ( St 

JKPR.S CS,c926 9 ; If reveree Is true here, csJlt 

ITST 0FUD DECODE, SR ; reverse « fslse I 

JMPR.S CC.C926J ; f«Jdeeode - fslse ? 

MOVE CURRE*T_MARCIR,R5 

SUB ; I* current jrergtn • 3*e 

CMP •CDATA.A5 ? Juep to c9J2 (look for bockwerd ««on) 

JKPR.S C£,e92oJ 

ADO SVIDTH,A5 

C926 Is MOVE A5.IPTR 

— JMPA c9J2 

c926 2: HOVE CWRERTJWRMN.A5 

ADO R6S.A5 ; If reverse ■ fslst end fvdjiecode - true 

oe •0DERD.AS ; IA i« current_s»r«ln ♦ 34e 

SpR.S UT^eWo 3 : }wp to 0929 (look for foreword eddon) 

SUB eVIOTH.fe 

c9S6 3: MOVE AS, IPTR 

JKPR.S c929 

c926 4: CMP.B «3F,013 ; test for UPCA.R 

JKPR.S EQ,c926 5 

CMP. 8 RW.DlS ; test for EAK8,R 



c926 5: 



.m $ M&0E.SR ; ~ 7 oet U h«r. If either EARB,R or UPC.A.R 
mat, c rr +a9k 7 - fud decode • true 7 



R.S Ct,c?2e_7 ; f<decode • true 

ITST etEVERSEfSR reverse • true T 

; IA IPTR 

JKPR.S CS,c929 

C926 6: MOVE CUSREMT MAS G t V t A5 

MOVE A5,IPTR ; If reverse • fslse s«l fwddecode ■ true 

JKPA C732 : Jiwe> to c932 

C926.71 ITST *EVER?E,SR 

JKPR.S CS.C926 9 ; If reverse • fslse snd fvd_decode • fslse 

HOVE CURRERT~HARCIR,A3 

HOVE A5,tPTR~ ; IA :« current_wrgin 

JKPR.S c929 

c926 8: MOVE U,A5 ; AT EXIT restore IPTR 

HOVE AS, IPTR 



67 



EP 0 304 146 A2 



r926 9: tET 

• HIT 10* ADDA KAICIN IDKftiUO. ( t<*> ODON MM It Hi* ) U» t thlt tlftwnt 
~ CU>/UlmttCUO) ♦ oto-«nt<u«2) ♦ «tMtt(U*S)3 It f"ttr tr.*n tho 



• olnttut mr 9 \t> rttlo (3.5/4) and !» Ittt thon tht rollout urgln rttlo (3). 

• If to. thon wtt thtt tttmt<U*3)/olotionU<A>2> It fritter thtn tho 

• «(n(M gjtrd Ur tddon rttlo (J/3) U Utt thtn tho niIiui fuord btr 

• rttlo (3/2). If to thtn chock that t1o*ontCU»2)/oto»ontC1A«1) It Utt 

• thtn tht roxttut Mkt ttMtnt rttlo (3/2) tnd ft frottor thtn 1/ntx tlko 

• tltnmt r*t<0 (2/3). If otoy, thtn .»< {att nldth to [etorontClA*1> • 

• 2 • clonont(fA*2> ♦ ttorontrU+3)) • ©/5, ttt U to U ♦ from* width. If 

• tny tttt folli, olt tht tloorlthn tnd roturn. Holt thtt «/3 •"l.BO; no 

• htvt tpproiliMttd thft tt 29/16 (•1.BI2). 



««29: 



KM 



MOVE 

CAILA 

WO 

CALLA 

ADO 

MM 

ADO 

ADO 

CMP 

JMPt.l 

L« 
HOVE 
ASl 
A00 



NOV! 

CAIU 

MOVE 

MOVE 

ADO 

ADO 

It* 

CMP 

JMPf.I 

ADO 
CMP 
JKP1US 

ADD 



ADD 

CALLA 

MOVE 

ADO 

CMP 

JMPt.t 

ADO 
CMP 
JMPt.S 

PWE 

KJtU 

MOVE 

DIVU 

MOVE 

MOVE 

ADD 

CMP 

JMPR.t 



c929 1: MOVE 



(A5),D2 
TI2 

(A5),01 
112 

<A5),01 
TI2 

CA5>,01 

01,00 

01,01 

00,01 

01,02 

NI,e026JB 

#1,01 
00,07 
«,07 
07,01 
«,D1 
01,02 
LT,c926l 

<«>,01 

T1 2 

<a5>,02 

02,D3 

02,02 

03,02 

«,D2 

02,01 

LT f c926J 

03,02 
02,01 
6T,c926 B 

03,00 

03,02 
03,03 
03,02 

Tf 2 

(AS),01 

01,01 

01,02 

LT,e926_8 

(AS>,01 

01,03 

CT,c926_8 

#9,A0 

A0,00 

i5,A0 

A0,00 

D0,A3 

IPU.A5 

iB,AS 

*BEM),A5 

LT.C929 1 

•VIDTM,A5 

AS,IPTt 



; 02 • oO 
; 01 • 0)1 
; 01 • ol ♦ o2 
; 01 ■ «1*t>o3 



; 01 • CU*3 ; 00 • Of 
; tO > 3*CW ? 

; v«t 

; W1.3 REM 01 - 3*W 

;or 
; CV*i 
; CW3.J 

J 01 » CVS.S/t 
; oO > CV»S.5/t 

; quit 



; 01 • oJ 



j 03 • 02 
; 02 • o2*2 
; 02 ■ tW 
; 02 » 02*3/2 
; o3 > o2*3/Z 
; qu«t 

; 02 ■ o2*3/2 ♦ o2 • o*S/2 
; t3 < o2*3/2 
; quit 

; 00 ■ o1«o2«o3 ♦ o2 



; 02 ■ o2*3 
; 03 • o2*2 



; 01 - ol 
; 01 ■ o1*2 
; o2«3 » o1*2 



01 ■ 01*3 
t2«2 < o1*3 
*ilt 



c o2/oi > zn ) 

C t2/o1 < 3/2 ) 



; DO • OT9/5 

; U ■ U ♦ frvotuldth 



• DECODE ADDON CHARACTERS FMM ADDON SEGMENT rottUAtD. 
cffSO: CAIU c92l , jtt tddon d»or 
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TO 



15 



35 



MOVE 

CAtU 

ADO 

CALLA 

ADD 

MOVE 

ISA 



Ltt 
ADO 
0* 
JMPR.S 

MOVE 

MOVE.! 



;• 



NOVC.i 

•a 

cWO 1: MOVE 
ADD 

c*p 

JMMUS 

cut 

C930 2: MOVE 



HOVE 

CALLA 

ADD 



ADD 

MOVE 

IS* 



JMPA 

MOVE 
ISft 
ADO 
CUP 
JMPA 

HOVE. I 

ADD.S 

MOVE 

ASl.i 

ADO. I 

MOVE.i 

CKP.i 

JKPR.S 

JHPA 



tPlt,A5 
Tl 4 
<Al) f DO 

(Al) t DO 

A3.D4 

#2,04 

A3.D4 

04,00 

0T,c926_B 

00,04 
#2,04 
D0.D4 

D4.A3 
GT f c926_4 

#Um,IUF,A4 

•1,<A** 

0H1.CA4)* 

DO.AI 

dli.paaity 

<PTK,A5 

•12.A5 

•G0FJD,A5 

LT,e930 2 

W1DTN,AS 

A5,IPTR 

e921 



IPTR,A5 

(a5>.do 

Tt 2 

<A5>,D0 

A3,04 

#2,04 

A3.04 

D4,D0 

GT,c935 

00,04 
#2,04 
00,04 
D4,AS 
0T # e935 

0M1,(A4>* 
#1 , LABEL SUF 
D0,AJ 

#i # pa*ity 
disparity 
label suf,d17 
adolColt 

LT,c930_1 
cW 



AT EXIT *DHl ChAfcACIEl 

dli ••> PARtn en 

00 ■•» CKAA WIDTH 



; DO • CV ♦ <t-2) 

; 00 ■ CV ♦ (1*2) • <e-3> • ow CV 
; fl€t taetjtfdth 

; LV5/4 

; CV > S/4HV 

• quit 



; OA • CV*5 
; IV > CVS/4 



; Include first addon char 



; get addon char 

; AT EXIT 0M1 CHARACTER 

, Oil »■> PARITY 1IT 

00 OUA^VIOTM 

. DO • CW ♦ (••1) 

; 00 • Ctf + <••?> ♦ (t-2) 
; get Isstjildth 



; CV > 5/4-LV 



; LV > CV»5/4 

• add addon char to addon ceg atrlno 



; 017 < fAD0.lEV6T» 



60 



55 



•• TEST FOR ADOOtt MARGIN BACKWARD. { FWD ADDON equals FALSE) Check thit 

• elemt<lA)/elcraent<<A-1> ♦ elanent(lA«2> ♦ clcawitdA-S) U greater then 
•• the ainfaua margin ratio and lest than the maxim* margin ratio. If ok, 

• then teat that etcm*nt<lA'3>/el«tcnt(lA-2) Is Greater than nfnfiaja addon 

• 0uard bar ratio and less than maxisua addon guard bar ratio. If thft It 

• okay, check that aleacnt<lA»2)/element«A-1) Is lets than the aaxinja (Ike 

• element ratio end greater than 1/that ratio. If okay tet lestjndth to 

• (ale*ent<1A-1) ♦ 2*elea*nt<U-2) ♦ element<1A'JM*9/3 and move IA to 
IA • <2*frsa« width • 1). 

e952: MOVE ~ <AS),D2 ; 02 • eO 



CALLA 
MOVE 
CALLA 



CA5),D2 

<aI),oi 

Tl 2 

<a5),di 

Tt » 2 
<a5) # 01 



; 01 ■ <e-1> 

; 01 ■ te»1> ♦ <e-2) 

; 01 ■ <e-1>»(e-2)*<e-3) 
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*>* 

ADO 
ADO 
CMP 
JKPA 

Ltt 

MOVE 

AIL 

ADO 

ISft 

CMP 

JMPA 

NOVE 



MOVE 
NOVE 
ADO 
ADO 

in 
o» 

JMPA 

ADO 
CMP 



ADO 

NOVE 

ADO 

ADO 



NOVE 
ADO 
CMP 
JMPA 

ADO 
CMP 
JMPA 

NOVE 
MJUI 
NOVE 
DIW 
NOVE 



ft.S 



01,00 
01,01 
00,01 
01,02 

•1.01 
00,07 
•2.07 
07,01 
#2,01 
01,02 

(A5J.D1 
1U 

(A5),D2 

02.03 

02,02 

03,02 

11,02 

02,01 

lT,cV26_6 

03,02 
02.01 
CT.c926jB 

03.00 

03,02 
03.03 
03.02 

T12 

<A5>,01 
01,01 
01,02 
IT,C9268 

(A5),D1 
01.03 
CT.C926 8 

#9 f A0 . 
AO, DC 
#5.AC 
AC, DO 
D0.A3 
IPT1.A5 
•14.A5 
#CDATA,A5 
CE.C932J 
ftllDTH.AS 
AS.1PTR 



c932J: NOVE 

DECODE ADDON CHARACTERS AND 

e933: 



; 01 • CW3 
; «0 « 3»CV 
; quit 



( •0/tt««?»«J « 3 > 



01 • tv»*.5/4 

«o * cvs.5.4 

quit 

01 - U-3) 

02 ■ <t-2) 

03 • {•(••2) 

02 • J«<#-2) 

ft-3) > C*-2)*3/2 
quit 

02 • Ct4)*9/2 
(e-3) < (t-2)»5/2 
quit 

00 • C«-1W<f 2)«(#-3> 



; 02 ■ (i«2W 
; 03 • U-2>*2 

; 01 - <i-1> 

; 01 ■ {••1)«2 

; <t-2>»3 > U-WZ 



; 01 • Cf 1)*3 

; U-2)*2 < c«-1)»3 

> quit 



( t2/«1 > 2/3 ) 



( t2/*1 < 5/2 ) 



; (A - <A • <2*frM*vidth • 1 ) 



FOtN ADDON SEGMENT RAGKUARD. 



C933JJ 



CALU 


c921 


; 0flt addon char 






; At Hit 081 ~> CRARACTER 






; Oil •«> PARITY RIT 






; DO »» CHARJUlDtR 


NOVE 


IP1R.AS 




ADO 


•10.A5 




CMP 


#GDEK>.A5 




JNPR.S 


LT.eWJ 1 




SUR 


JVIDTH.A5 




ADO 


(A5),00 


; 00 • CU ♦ (t3) 


CALU 


T12 




ADO 


<A5),00 


; 00 • CV ♦ <t3) ♦ <«6) 


NOVE 


A3.D4 




LH 


#2,04 




ADO 


A3,04 




CMP 


04.00 


; CU » 5/4*LV 


JMPA 


CT,C926_8 


; quit 


MOVE 


00,04 




LSR 


#2.04 




ADO 


00,04 




CMP 


04, A3 


; iw > art/4 
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to 



T5 



20 



c«3J 2: 



c©33 3: 



c933 .4: 



MOVE 

wvt.l 

MOVE 
MOVE.B 

HOVE 

a* 

CMP 
JMPt.t 
ADD 
HOVE 
CALL A 



WOVE 

ADO 

WP 

J HP*. J 

sub 

ADO 

CALU 

ADO 

MOVE 

Ltt 



MOVE 

LSI 

ADO 

CXP 

JHPt.S 

MOVE. I 
ADO. I 
MOVE 
ASUf 
ADO.I 
MOVE. I 
CKP.l 
JKPB.S 



. ci t cV26_B ; gjti 

•\AaU_0u7,A4 



#U»4)* 

DKUA4)* 
00, A3 

oli,pabitt 

IPTB,AS 

*12,A5 

WD AT A, AS 

GE.cTO3 

WIDTH, AS 

A5.IPTI 

c921 



lPTB,AS 

«e,A5 

#GD£¥D,A5 

#U1DTH,AS 

(A5) # D0 

T« 

(A5),00 

AS r D4 

•2.D4 

A3,D4 

04,00 

CT,c935 

D0,M 
•2,04 
©0,04 
04, A3 

DH1,<A4>* 
•1, LABEL BUT 
D0.A3 
ei.FAAITT 
0L1, PABITT 
UBEL.lUF.Dt7 
ADDLL.DL7 
lT,c933_2 



; Jnetudt f Int addon chir 



get addon Cher 

AT EXIT ONI CHARACIEB 
Oil «> PA8ITT BIT 
00 OUR WIDTH 



; DO • Of ♦ {e4) 

; DO - CU ♦ <e4) ♦ <e5> 



; CU > J/4-IU 



; IV > CW*5/4 

; quit 



; add addon char to addon aeg tiring 
; update PABITT pattern 



; tttt If addon Btring fa too long 
; 017 < BADDOHLEBBTH ? 



35 



40 



f CALCULATE SECKEMT CHECK SUM. (REF 9.3.3S - 9.3.37). If length of addon 

• segment fa 2, calculate the check am aa the end A of the two digit addon. 

• If length of the addon ee*«nt It 3. calculate the check eu* at 1(3 • mum 

• of dlgite 1, 3 and 3 of addon tiring) ♦ <o * eu* of dlgite 2 and 4)1 ted 10. 

• Index the PARITY bite Into the table. If the Index PABITT pattern equota 

• the calculated cheek em, addon fa true. Store the addon string in AddJ 

• «nd return, viae Juat return. 



so 



55. 



c93S: MOVE.B 
MOVE 
CM 

MOVE.B 

CNP.B 

JHPB.S 

MOVE.B 

ADO 

MOVE 

ASt 

ADO 

ADD.B 

AMD 

CMP.t 

JMPA 

MOVE.B 

CALLA 

c935 1: MOVE.B 



DJHZ.I 
JMPA 

c935 2: CMP.B 
JMPA 



P«ITT,0L3 
(LABEL BUF,A0 
01 

CA0)*,DL7 

#2,017 

BE.C935J 

tA0),DLl 

Dl t D1 

01, DO 

•2,00 

00,01 

1(AO),OL1 

•03,00 

OL0.DL3 

NE,c«26 6 

•W2,DH7 

outch 

<A0)*,0K7 

outch 

DL7,c*35J 
C926 8 
•5.0L7 
VE,c926_8 



oat PABITT pattern 

load beae addreeee* for label buffer 

prep, working r«g. 

fetch •doon teg length 

If addon aeg length • 2 

get H1 
01 • 2H1 

DO • 4V2*B1> • a*W1 

oi ■ io*nt 

get B2 

DO • «10*B1) ♦ N2) 

«10*B1> ♦ B2> MOD 4 

; not equal? Parity error. Ouftl 

; ebon aeg la 2 char addon 

; else, rove 2 char addon itrlng 



; and letve 

; acg length «oual S 7 

; If not - 5, error, quit. 
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*M.I <Atf),DlO 

ADO.I 2<A0>.Dl0 

ADO. I 4(*0>,DLO 

KM 00,01 

ADO 01,01 

ADO 01,00 

MOVC.I 1<A0),0L1 

ADO.I 3{A0),DL1 

MOVC 01, 02 

ASt 0,01 

ADD 02,01 

ADD 00,01 

KM flO,A4 

• CLt DO 

OIVU A4,D0 

MM i«*5tbl,A1 

ADO D1,Al 

MOVE.! (A1) r OL0 

CMP.t DLO.DLJ 

JMPA «,c92* 5 

mcm.1 ms.cnr 

CALU outch 

e935_3: MOW.O <A0)*,D*7 

CALU outch 

DVHt.l Dl7,c«J5 3 



; 0»t *1 

; ott NJ 
; ott vs 



; 00 f 3*(N1*«3*KS) 
; o«t W 

; Ott M4 



JMPA 



C926 I 



; 01 • 8*(N2*#4) 

; 01 :• 9»<*MK> 

; 01 • 3*(M*n3«n5) ♦ 9*{V2»M) 



; calc »od 10 result 



; PARITY « malncfcr t 

; not tquott Parity •rrw, quit I 

; alta, 

; •Sow 5 char addon a*o typo 
? novo S char addon atrfno. 



and rttum to aafn aloorftha 



\iniuuuuiiuiuiuiuuuiuiiuiuiniiiniiinimunnuiiuiiumu 
t* / 

U STMT THE Mil DCCQOIKG ALGORITHM / 

I 

wiiMuuiHiiiiiiuunsumiuiiuiiuuiuiuiuiiuiwuuuimmti 

START Of UPC/CAN DECODE* 

.* 

codaUFC: IT ST tUPC.DECCOMl • twitch cloaad...do wcyiAM efceodcrat 

JMPA CC # nojdacoda ; no, «aka Ilka a traa and I taw 
MOVE USTf,D0 

MOVE 00, IPTR ; yta, gat back or I final IPTR 

LOOK MR A MARGIN SAOCUARD. If tha dlf ftranca batwaan IPTR and tHa (mat 
dacodt point it aqual to or fraitar than a afntaut atpwjnt a 1st (4 char- 
actaratgaant • 26 alaaanta) than do otap 9.3.10 to chaefc for a aargln *n 
tha ravtrsa dlractlen. If a nargln hat baan found thant 

- ttt latt char width to nargln scalar * (fa-13 ♦ 2*Ct-2J ♦ (t*3J> 

• ttt currant aarf In to IPTR 

• ttt IPTR to IPTR - <2*frmm width • 1); I. a. point to tha flrat 
tlasant of tht nut chtractar to ba oacodad. 

• aat fwddacoot filtt 

• rtttt PARITY bltt and ttgmant atrlnga to wapty 

- ttt cent f nut dtcoda trut 

; act Itttett wtdt tpac* (In DO «> IPTR) 

c902; sut ilDP.DO ; tubtract latt dacodt point 

JMPR.S PL.C902J 

«6 00 ; ott tha abaolutt value of calcutttlon 

C90ZJ: CKP #52,00 ; 00 < 32 T 

JMPA LT,c903 ; If to, tttt for at rain forawtrd 
; rtf 0.3.10 

MOVC IPTR.AS 

MOVE (A5),D0 ; ttt tO 

CALU Tl 2 

HOW <aS),D1 ; ott te-IJ 

CAIU Tl 2 

ADD (AS),D1 ; ott tt-Zj 

ADD <A5),D1 ; 01 ■ If 11 ♦ 2Mf2j 

CALU Tl 2 

ADD <a5>,01 ; 01 • (a-1) ♦ 2*ta-2J ♦ Ia-3] 

MOVC 01,02 

MOVE 01,05 

t« M.02 ; CV/2 

ADO 01,02 ; CV/2 ♦ CV 

ASl #2,05 ; REM I 05 ■ CV*4 

ADO 05,02 ; CV/2 ♦ CV ♦ CW*4 • CW5.5 

l» #2,02 ; 5.5*CU/4 

CMP 02,00 ; 00 < 02 7 

JMPA LT,c90J ; iemi D 1 • ♦ 2«ta-2j ♦ ft -5j 

r 05 • 3*CV 
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MOVE <A5),00 ; set [e-3) • DO 

CALLA 114 

MOVE <AS),D2 ; B«t [a -11 • 02 

MOVE OO.DJ 

ADD DJ 03 

S ADO O0,'o3 ; te-3)«3 

CMP K D3,D2 ; |e«1J > fe-3J*3/2 > 

JURA GT,c903 

MOVE 02.03 ; «MI 00 • Ie-3J / 02 • le-1) 

ADD D3,D3 

70 add 02,03 ; te-N«3 

LSR #1,03 ; te-U»3/2 

OMP 03,00 ; le-3) > (i'D'3/2 7 

JMPA GT,c903 
;• ACM OS ■ CW»4 

ADO 01,05 ; D3 • CV4 « CV ■ CV*5 

ADO 01,01 ; CW2 

ADO 05,01 ; 01 • 2»W ♦ 5»CU • 7»CU 

r $ ISt e?,0l ; 01 ■ 7»CV/4 

HOVE 01, A3 ; ttort I ut width 

»Ot ffUD DECODE,SR 

MOVE |PTR,AS 

MOVE A5 ( CURREKT MARGIN 

SUB ff14,A5 

CMP #CDATA,A5 

20 JMPt.S GE,e902 2 

ADO #UIDTH,A5 

C902 2: MOVE AS.lPTt J AT EXIT AS "> tPTR 

" 

;• GET tAttUARD SXGMEVT ALGORITHM. Tttt If data Is available In the backward 
direction <IPTI >• lm_decodejx)1nt If not available, quit tht oV 
coding algorithm and do step 9.3.14. In the main algorithm use atcpa 9.3.21 
through 9.3.Z4 to get • segment cherecter. If character la valid: 
25 ;• - 'add character to the segment string 

;• • ehlft the PAIJTY nop left one bit and add 1 If even PAR ITT 
;* • sat last char width to current char width 

• set tPTft to fPTR • frame width' 
;• If character la not valid do step 9.3*14. At the end of each "loop* through 
;• rain algorithm tttt the segment buffer to see If the segment string- It 
]• greater than 6 characters In length. If it It tet lestjdeccdejwfnt to 
30 ;• current aargln and enter 9.3.3. 

c911t: CW UIELJUF 

MOVE BLAB El BUF+1,A4 

cir.b parity" 
c911: CALLA c921 ; get t character 

C912: CALLA c924 ; check character 

; on return from c*24 DO *» CHARJ/IDTH 
35 . DHt «*> CHARACTER 

Oil ~> MR ITT lit 
; 06 -*> 0000 If ok 

OOFf If small 

; FFOO If large 

CMP #0,06 ; char too large or too small 

JMPR.S NE,c?K ; If ee, quit to 9.3.14 

40 MOVE D0,A3 ; lest width :» char_wtdth 

MOVE.B DX1,<M>* 
A8D.1 fl, LABEL BUF 

ASt.l B1,PAAITT ; shift PARITT bit left by 1 

ADD.! Oil, PARITY ; edd new PARITT bit 

MOVE IPTB,A5 

SUB PO0,AS 
_ CMP #CDATA,A3 

45 JMPR.S 6£,c912 1 

ADO tVlOTtt,A5 
C912J5 MOVE AS,lPTR 

c913: BTST #11, LABEL BUT ; Ubel buf « 7 7 

JMPR.S CC,c911 ~ ; If fall •« ref. 9.3.15 
JMPR.S c913 ; re-enter the elgorltha forewerd 
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• TEST SEGMENT STRUG, MAKING A HO STORING IT AS A VALID SEGMENT TYPE IF 

• POSSIBLE. REF 9.3.14 

c914t MOVE.B LABEL BUF, 017 

CXP.B §06,017 ; If segment length la not 4 or 6 

JMPR.S BO,c914 1 ; goto C*1S 

CMP.B #04,017*" 

JMPR.S NE,c915 
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ft, IPT* 
CT.cOIS 

nootr.M 

« # c9tt 

noi f DHi 

FO.tOU 2 
•*tt,DM 
«,c9U 2 

E0 # c914 2 

W08.DHI 

«,c91S 

DO.AJ 

IM«,A5 

*0J,A5 

KbkU.tS 

«,c«U I 

OVlDTH.fc 

c921 
c924 
fC,D6 

•W1.DH1 

IQ,e9K 4 
««,wT 

tQ,c914 4 
*07,0KT 
fO # c914 4 

«<a,wT 

W.C915 
c9S 



O0\i «00,Dl3 
JHPt.f «,e913 
"OVE-i 013,0117 



e914J: 


•1ST 


JMP*,* 




CMP 




m.i 




CMP.I 








CMP.I 




JKPt.S 




CMP.I 








OCP.l 




JMPR.S 


c9U_2: 


MOVE 


MOVE 




sut 




CMP 




JMPt.t 




ADO 


c9U_3t 


MM 


CALU 




CAIU 
CMP 




JMPt.t 




CMP.I 




JMPt.f 




CMP.I 




JNPt.S 




CMP.i 




JMPK.S 




CMP.i 




JMPt.t 


c914_4: 


tat 




CAIU 



e9H_5: 
c914_*: 

c91<_7: 

c9H_B: 

c913; 



MOVE 
MOVT.I 

CMP.I 

jmt.% 

CMP.I 
JMP«.I 
CMP.i 
JMPk.J 

at.* 

ADO 



DJN2.I 

JMPt.t 

MOVC.S 

CALU 

0JNZ.i 

MOVE.i 

CXP.I 

CALU 

MOVE 
MOVE 
MOVE 



? If tPT» Un'l pofntlne at » Ur 

: 9010 c915 (frmtno orror) 

f H not too m*U, quit 
fw't 0 cenur U^) 
If char Un't anbfauoua ft, 2, 7. of 
•oto c9l$ (Un't • cantor boM) 



•UUL_tW,A2 
<A2)* t 0L7 

«3r\ 0L3 
EQ,c9H $ 
«oc.oi! 

EQ,c9H 5 

*1S,0l5 

*E,c914 7 

DX7 ~ 

07.A2 

•CA2).0K7 

cute* 

0t7,c914 6 
c9t4_i " 
(A2)*,D¥7 
outch 

0l7,e9H_7 

AOOU.,010 
*0.OLO 
W,c926 



OlMEIflJtt«lll,AS 

A5,tL0P 

A5,IPT« 



; dtcriwit IPTt by 1 



; thon, Htinw char 
; mo* toot It 

; If It folia, quit to O.J.15 

; than, toot If ehar to on aofalouotai on* 



; Jf not t quit to 9.3.15 
1 If okay to haro 

; tf -iMTEl WITH 013 «> PAJIITT PATTfM 
? #- « 1f orror 

; toat If valid aoonant typo 
; not o valid »og? Quit I 
; aond tag typo 

; oot oaf length 

; tlHf A3 poimi to f Irot chor. 

; toon, aond tha aopan 

J toot on typo; la ft UK Jl,i 7 

; or UPC01 t 

; or EAM8,R ? 

; If not ona of theao, akfp naxt atop 
; If upc a, i or upcd! or u*9,* 
; am polntar to atrlng and ♦ 1 



; oloa, oova atHno foranard 



; look for addon tog 7 



"OVt IPTt.AS . r , f 9 J in 



!* 

c903: 
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CAUA 

HOVE 

CAIU 

ADD 

ADO 

CAIU 

ADO 

wove 

KM 

ISO. 
ADO 
ASL 
ADO 
L$R 
MP 
JMPA 

MOVE 

CAIU 

HOVE 

HOVE 

ADO 

ADO 



JKPA 

HOVE 

ADO 

ADO 

Ltt 

C*P 

JKPA 



ADD 
LSI 
HOVE 

wet 

HOVE 

HOVE 

HOVE 

ADO 

CHP 

JKPR.S 

SUB 



112 

(A5),D1 
112 

(A5) ( D1 
(AS).OI 
TI2 

(A5),01 

01,02 

D1.DS 

#1,02 

01,02 

*2.05 

DS t 02 

#2.02 

02,00 

LT,no>ecode 

<A3),D0 

Tl A 

<AJ>,02 

00,03 

03,05 

00,03 

#1,03 

03,02 

CT,no_decode 



02,03 
03,03 
DZ t 03 
#1,03 
03,00 
6T,nt> 



e9© Is HOVE 



01,05 
01,01 
05,01 
#2,01 
01 A3 

#f«> DECCDE.SR 

A5 f CURACTT_HAAGlK 

A5.I10P 

#OB,AS 

fCDEKD.AS 

U.cPOSJ 

WIDTH, AS 

A5,IPTR ; AT EXIT 



; oat •* % , 
; D1 • ol • 2 # »2 

; 0! • #1 ♦ Tt2 ♦ «3 



; CW/2 

! CU/2 ♦ CW 
; 05 • CW* 

f CW/2 * CW ♦ CW** • CW*3.5 
f S.5-CW/A 
; 00 « 02 ? 

t rm 01 ■ el ♦ **e2 ♦ #3 

OS • CW*4 
i fttt «3 ■ DO 

j jet «1 • 02 



; «3*3 

; t3«3/2 

; el > c3»3/2 T 

I rm 00 ■ «3 / 02 • 01 

; «1«S 

; tt»3/l 

; «3 > #1*3/2 7 

j rea 05 « CV* 
; 03 • CW»A ♦ Oi 
; CW»2 

* 01 • 2*CW ♦ 5»CV • 7*cw 
; 01 • W7A 



A5 < 



iptr 



;* CET FOREUAAD SEGMENT ALGORITHM. 00 Steps 9 J.21 thru 9.3.24 to oet a 
.-• poaclblo character. If tucceseful: 

.* - *dd character to the sapient atrlng . . 

• shift the parity pattern left 1 Mt end add new parity bit 

• set lest width to currant character width 

• add I rmi width to 1PTR 



c91©« 



c916. 
c917: 



CU 

HOVE 

CIR.t 



CAIU 
CALU 



CHP 

JMPt.S 

HOVE 

HOVE. A 

A00. 1 

ASL.t 

AOO.i 

HOVE 

ADD 

CHP 

JMPR.S 
Sit 



U1EI SUF 
«U8El BUM,A4 
PARITY 
roon 
e«21 
C924 



#0,06 

NE,c919 

00,A3 

on, (AO* 

#1,USEL.BUP 
#1, PARITY 
Oil .PARITY 
IPTR,A5 
#08,A5 
0GDEVD,AS 
LT,c917 1 
#W1DTH,AS 



; get a character 
i check character 
• on return 00 «»> CHARJIIDTH 
' DM >» CHARACTER 

0L1 PARITY II T 
M «■> 0000 If ok 
. OOFF If email 

; FFOO If largo 

; char too I arse or too swell 
; If ao, quit to 9.3*19 
; lastwidth :• cherjrfdth 
; Inaort char 

; shift PARITY bit left by 1 
; add new PARITY bit 

; awe pointer to neat char 
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c917 1: KM 
c91a: II ST 
JHPt.S 
JNPA 



;• TEST CEMENT ITIINC, MMCtVC i 

;• POSSIIU. UP 9,3.19 



A5.IPTR 

#11 .label ii 

CC,c916 

no <" 



c919t 



TO 



15 



20 



25 



30 



NOK.I 
OtP.B 
JKPt.S 
CKP.S 



c919J: BTST 

JKPt.S 



CMP.8 
JHPt.S 

chp.b 

JKPt.S 

c*p.t 

JNPt.S 

or.s 

jnpa 

C919J2; MM 



JNPt.8 

tut 

«919 3: HOVE 



CPP.S 
JHPt.S 
CHP.8 

or.s 



chp.b 

C919 4: SOI 
CALLA 



or.i 

JHPA 
MOVE.I 



HOVE 



E.ft 



C919J: 
C919.6: 

c919_7: 
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Off.! 

JNPt.S 

CKP.S 

JHPt.S 

CHP.B 

JHPt.S 

ctt.t 

ADO 

hove.b 

CALU 

OJK.B 

JNPt.S 

MOVE.! 

CALLA 

0JN2.B 



c919_8t HOVE.B 
CHP.8 
CALLA 

e919_10: MOVE 
MOVE 
ADO 



LABEL SUr ( 0L7 

E0.C919 I 
*04,DL7 
WE.ne datodt 
#1,IPTt 

CC.C920 

fWOFF.D* 

H t n> dacoda 
•Ml, Ml 
E0,c919 2 
#S02,0M 
E0,c9l9 2 
#S07 V 6K1 
EQ.C919 2 
«0»,0H1 
MS y wojdtcodf 
AS.LAST VtOTR 
D0.A3 ~ 
IPTt,A5 
«2,A3 
#CDCND,A5 
LT.c919_3 
#U10TB,A5 

ASjra 

e921 
c924 
40,06 



; M too char'i •«> QUIT 
> STOKING IT AS A VALID SEGMENT UPC If 

; If aaprwnt l«noth U not 4 or 6 OUJT 



fS0l,DSl 
E0.C919 A 
«02 t DH1 
CQ.C919 4 
«07 # C«1 

«soa v DKi 



mvuse.st 

C925 



«SO0,OL3 
EQ«no dtcoda 
0L3.DP.7 
outdi 

•tASEL.tur^ 
<A2>*,D17 

•ttf.WJ 
E0,c919 5 

•soc.olS 

E0,e919 5 

wb.dlJ 

«E # e9t9 7 

DH7 

07.A2 

•<A2),0M7 

outch 

DL7.C919 6 
e919 8 
CA2H.DH7 
outch 

DL7,«TO7 

ADOLL.DLO 

•O.DLO 

KC,c926 

LAST VI0TH t A3 

iptbTas 

#8 f A5 



; If IPTi It point Ing at • bar 
; goto c92fl, ttM 

SEGMENT EMOCO ON A CENTER 8AJ0 
; If char 1i hot too mil, quit 

; If char Isn't (1, 2, 7, or 8) 

; ouiT {Isn't • cantar Und) 



; stort away width of I oat * 
; atont width of Mr? In 



; IrcroMRt IPTR by 1 



; pat onothor chor 

; ond tost It 

; If tttt fails, quit 



; tctt If char la wablfuous 



; oat parity patttrn with rovtraa falaa 
; RE-ENTER WITH 0L3 «> PAIITr PATTERN 

; rr if 

; tast If valid saonont typa 
; no? Oultl 
; tltc, atnd sag typa 



; tast aa« typa; la It UPCA.t ? 

; or UPCJM 7 
; or EAN8.R 7 

; If not or* of thass, skip mat itap 
; If UPCA.R or UPC_D1 or £AN8,R rtvaraa 
; atrtng~(Kannad It backwards). 



; etaa, atora a«o atrlng non-ravariad 



; took for addon tag T 



; oat Uck pravlous laitjridth 
; till, continut decoding 
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CMP 

jmpr.b 

SUB 

c919 12: *M 
MOVE 
JHPA 



c920: 



c920 J; 



c920_2i 
c920 3i 



c*20 4: 



cv?0J: 



CMP 

JMPR.S 

MOVE 

ADD 

CMP 

JMPR.S 

SUB 

MOVE 

MOVE 

CALL* 

MOVE 



AOS 

ADO 

CALU 

ADO 

MOVE 

ASL 

ADO 

LSI 

ADO 

LSt 

CNP 

JHPt.S 

MOVE 

CALU 

MOVE 

ADO 

ADO 

LSt 

CMP 

JMPR.S 



MOVE 

ADO 

ADD 

LS8 

CMP 

JMPt.S 

BSET 
CALU 



CMP.B 

JMPR.S 

MOVE.! 

CALU 

MOVE 

MOVE.! 

CMP.B 

JMPR.S 

CMP.B 

JMPR.S 

CMP.B 

JKPR.S 

clr.b 

ADD 

MOVE.B 

CALU 

OJNZ.t 

JMPt.S 

MOVE.B 

CALU 

OJW.B 

MOVE.B 

CMP.B 

CALU 



#3>(W9,A* 

11.C919J2 

SVJDIK.A* 

A5.IPTI 

A5,tL0P 

c916« 

wroo,D6 

ME, no decode 

iPlft.fe 

#06,A5 

#GDWD # A5 

LT,c920 I 

fUIDTlt,A5 

AS.IPW 

(A5),DJ 

(aI>,04 
(A5>,D4 

(*J>,04 
04,05 
*2,D5 
04,05 
#1,04 
05,04 
#2,04 
03.04 
CT f noj 

(AS),!* 
TI4 

<A5),04 

04,04 

<A5>,D4 

#1,04 

04,03 

GT,nejdecod» 



(A5>,D4 

D3,DS 

03,03 

05,03 

#1 ,03 

03,04 

GT,no 



ttEVERSE.St 
C92S 



«00,013 
EQ,no decode 
OL3,OM7 
cvtch 

#umjur,A2 

(A2»,0L7 

#S3F,0L3 

EQ.C920 4 

#S0C,DL3 

EQ,c920 4 

WW.DlS 

fO,<920j4 

0117 
D7.A2 

<A2>,DR7 
outch 

DL/,c920 3 
c920 5 " 
<A2H,DH7 



ttCMCNT ENDED ON A MARGIN 
; if chsr it not too big, quit 
; (not • neroln cherscttr) 

; increment IPTR by 3 



; check «*rgln, re#. 9.3.10 
; 03 « «0 



; pet r«-U 



; 04 • UU*2Te2We-3) 



; 05 m 5*cv 
; 04 - ar/2 
; 04 ■ S„5*C¥ 
; 04 • CW.5/4 
I CWS.5/4 > *0 7 



; 03 • Co-3j 
; 04 • tt-1I 
; 04 ■ te-1I*3 
; it'll > le- 11*3/2 

; 04 « t»-1J 



; 03 « te-33*3/2 

; te-1) > U-3]*3/2 7 



; B*t psrfty pattern with reverse felte 

; RE 'ENTER WITH 0L3 PARITY PATTERN 

; Ff If error 

; test If vol Id segment type 

; no? Oultl 

; else, eond teg type 



; elte, test seg type; it ft UPCA.R ? 
; or UPCD1 7 
; or EANB.R 7 

; if not one of those, reverse the string 
; (scanned It bsckwsrds) 



DL7,e920_4 

ADBLL.DlO 

SO.DLO 

K,c926 



; else, store teg string non- reversed 



look for sddon teg 7 
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cW 6: MOVE 
KM 
MOVE 
JKPA 



TO 



t5 



20 



25 



30 



35 



40 



46 



50 



1fTt # A5 

ARGUMENT KARCIN 
A5 t 1LDP 

c90S ; iUrt •gttn looking lor » f»rf »§r0ln 
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0 12 3 4 5 6 7*9 

ncUrtW: OCI 00,00,00,01,00,00,02,00,00,05 

OCI 00,04, «,00,06,00,00,00,07,00 

DC! 00,08,00,00,09,00,10,00,00,00 

OC.I 00.00,00,11,00,00,12,00.00,00 

PCI 00,11,00,00, 14,00,00,00, 15,00 

DC! 00,00,00,00,00,00,16,00.00,00 

OC.I 00,00,00,00,00,00,17,00,00, 15 

OC.I 00,00,19,00,20,00,00,00,00,00 

OC.I 00,21,00,00,22,00.00.00,00,00 

OC.I 00, 00,00,00,00.00,23,00,00,00 

DC.I 00,00,00,00,24,00,00,00,00,00 

OCI 00,00,00,00,00,00,00,00,00,00 

OCI 00,00,00,00,00,00,00,00 

xfcbar: OC.I •012C-D4«SA67Bi£xS:9x/.3x* 

xrcUr: DC.I ■ x54*AlD6/21 :*0C» 



000 
010 
020 
030 
040 
050 
060 
070 
MO 
090 
100 
110 
120 



;• Mod the widest ber and widest tpece anoung tht character element (1*1) 

though element (1*7), then aultlpty the wisest ber end tpece by the 
;• threshold retfo (0.700)* Set • blnery nu*er # which vltl represent the 

character off Mt, to ttro. For tech aloaent, el through e7, eultlply 
;• the pettern by 2, then Incraant the pattern by 1 If the element it 

Uroer then the catcuteted threehotd (ber or tpece, at appropriate). 
;* If no nerrow apace bet found (apace pattern ■ 3), logically AND the 

calculated pattern with XlOIOtOI (135) to correct It for the case of 

there being no wide < 



call; MOVE 

MOVt.l 

CALU 

Met 

CALU 

HOVE 

C611 1 CALU 



c611J: 



c611_3: 
coll 4: 



c612: 



c612 1: 



c612 2: 



£612 3: 
C6137 



JKPt.S 
MOVE 

su.i 



JKPfi.S 

MOVE 

DJMZ.I 

MOVE 

ASL 

ADO 

ADO 

ADO 

LSft 

MOVE 



LS* 
CU 

MOVE.! 

MOVE 

ADO.I 

CALU 

CMP 

JKPft 

ADO.I 

SUA. I 

JKM.S 

ADO.I 

CALU 

CMP 

JHPt 

ADO.I 

ADO.I 

OJHZ.I 

CMP.I 

ANO.I 



IPW,AS 
#5,DL7 
112 

(A5),D3 
T12 

(A5),D4 
TI2 

(A5),D3 

CE.C611 2 

<A5),D3 

#1 # BL7 

EQ,c611> 

TI2 

<A5),04 

CE,c611 3 

(A5),D4" 

DL7,c611 1 

D3,A1 " 

#3,A1 

D3.A1 

03.A1 

03,A1 

#4,A1 

D4,A2 

I3,A2 

D4,A2 

D4,A2 

D4,A2 

#4,A2 

D6 

f7,DL7 
t(>TR,AS 
0LA,DL6 
112 

(A5),A1 

CT,cA12 2 

#1,DL6" 

«1,DL7 

f0,co13 

DLo,DL6 

112 

(A5),A2 
0T,c612 3 
#1,DU " 
#1,0116 
DL7.C612 1 
«3,0H6 
«55.DL1 



el 



; e1 > e3 



; e2 > e4 



. aem 03 ■*> widest bar 
; berjjkpt « wexjser* 11/16 



REM 04 widest space 
»P.t*Pt ■ eox_spsce»11/1d 



berj*pt > (A$) 



«Pj*Pt > (AS) 
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Ut« the calculated patwrn to lt*V up t*t character India value. If the 
Inrfei vtlua U *aro, the toil felled (no velfd character found). Cult the 
;* decoder. 



c6U: 



MOVf 
ADO 

MM. I 
ITS 



**cbertbl,A3 
07 

Dl6,t»t7 

07,0 

<U>,Dt7 



AT CXI1 DH6 3 If no wide ipece 
Dl7 -•> char IndoK 
OS ••> wldtot bor 
OA »•» oldeat »p*ct 



;• Ut ino the calculated checter index velue, gtt e cheracter 1rm either th« 
;• foreword or reveree character table. If the chorocttr U not voMd (*«•> 
;• quit tho decoder. 



c©15; 



o615 1: 
co15 2: 



•TIT 

JMPftM 

MOVE 

JMPt.f 

MOVI 

ADO 

MOVE.I 

o» 

JMPA 



•fC«UAM>,St 

CC.eolSJ 

#xfcber,A3 

col5 2 

#xreber,A3 

D7,A3 

<A3).Do7 

«73,De7 

£0,06221 



AT EXIT DM6 — > 3 If no wide 
0«r •» chor or If 

03 — > widest bar 

04 ••> wldtot apace 



Chock tht character «ldthi. find tho nerroweet bor and opoct end CO culoto 
•• tho eu» of etoo*nt<W) through elojejnUI*?). If tho ratio of tho wldeet 
bar to tho narrow** t bor It greeter then tho MX •IoojoM ratio 1» 
Iom than tho .In oleaant rotlo (1.5), quit. If tho rotlo of the trldeot 
opoeo to tho nerroweet apoco it troator thon tho emx olooont rotlo. cjrft. 
;• |f vide tpecee wort feu* (0N6 001 EOUAi 3) and tho rotlo of tho Mldoot 
;• space to tho narrowest opoeo to loco thon tho orln a laawnt rotlo, e*Ht. If 
;• tho rtotlo of tho nerroweet bor to tho nerroweet apaco or tho Inverse of 
;• thlo rotlo le greoter thon tho amx eloaent narrow rotlo (3.0), ojjlt. 



eo16: 



C61©J 



c616 2s 



MOVE 

MOVE.! 

CALLA 

MOVE 

MOVE 

CAILA 

MOVE 

ADO 

CALU 

O0> 

JKPt.J 

MOVE 

ADO 

sue. I 

JMPftaS 



CMP 

JMPt.t 
MOVE 



col© 3s ADO 



C617: 



cotflr 



col9: 



DJH2.I 



MOVE 

ASl 

ADO 

CMP 

JMPA 

WOVE 

IS* 

ADO 

CMP 

JMPA 

MOVE 

ASt 

ADO 

CMP 

JMPA 

CMP. I 

JMPt.S 

HOVE 

ISO 



IPTI.AS 
«,DL7 - 
112 

<A3>,01 

01.00 

112 

<A$>,02 

02,00 

112 

<A5>,01 
16,0*10.2 
(A5),D1 
(A5),00 
#1,017 
I0,e©16 4 
112 " 
CA5),D2 
CE.c©16 3 
(A3), 02' 
<AS),D0 
0L7,c616J 



01, OS 

#2,05 

01. 05 

05,03 

6T,c622f 

D1.0S 

DS 

01.05 

05,03 

lT,c©22f 

02,03 

•2,05 

02,05 

05,04 

61,co22f 

*3,DH6 

EQ.C620 

D2.D5 

05 



; REM 03 •»» wb 02 —> «• 

; ti 
; •* 

S o1 » o3 

; DO ■ e1*e2^e3*e4»e5*eo>e7 
; o2 > o4 

; A1 EXIT 00 **> CMIJHDTi 

• 01 *» narrowoot bor 

• 02 -*> narrowest apaco 
03 w wldtot bor 

; 04 *■» wldtot apact 

; DHo «> 3 If no wldt space 

; DH7 •»> character 

; vb/nb > 5.0 
; Hb/nb « 1.5 



; vs/ns > 5.0 
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ctfO: 



c621: 



ADD 


D2 D5 


CKP 


dS m 


JKPA 


lt!c622f 




02,03 


ADD 


02,05 


ADD 


D2,D5 


CMP 


05,01 


JNPA 


U.cottf 


HOVE 


D1.DS 


ADD 


01,05 


ADD 


01, D5 


WP 


05,02 


JXPA 




MQVE.t 


0H7,(A4>* 


RET 




CUt.t 


0K7 


RET 





*»/ru < 1.5 



; nb/n* > J.O 



m/nb ► 3.0 



; If okay to here, store chs racier 
; AT CX11 DO char width 
e622fi CLR.I OUT ; DK7 •«> ehaf or "0" if error 



codeC BAA: ITST #CaAJt,D£COOE*l 

JMPA CC,nuteode 

MOVE leatf.AS 

MOVE ASJPTI 

• If the iui of elcscrtts eHe2*e3 > eO, quit (Margin too mil), 

• NOTE: TRIS IS PONE IT IFSIII 
ctftt: MOVE (A5),D0 

CALU TI2 

MOVE (A5),D1 

CAIU TI2 

ADO CA5),D1 

CAIU T*2 

ADO CA5) # 01 

CMP 00,D1 ; «1*e2**3 > «0 

JKPA CT.nexteode 

• Use the step starting at C611 to get a chsraetar index. If the Index equals 

• either a forewerd or reverse start/stop character set the foreward decode 

• flag accordingly and enter the decoding algorithm. Otherwise, quit (no 

• start chsreter found). Then, test the character widths, if all tests pais 

• sat lest width equal to the sua of the character elements generated by step 
CAM and store tha character found, else quit. 

cAOt: CAIU coll 

CMP.B fO,DL7 

JKPA EO.nextcode 

CMP «,D17 ; -c- 

JKPft.s EQ,e604 2 

CHP.t «6,DL7 ~ ; -0« 

JMPt.S E0,c60t 2 

CllP.B #10,017"* ; -A" 

JMPt.S EQ,c6W 2 

CKP. I ai3,0L7~ ; -fl- 

JKPR.S EO,co04 2 

CKP.t #14,017" ; -A" 

JKPfi.S EO,c£Ot 1 

CMP.B #14,017" • - "D" 

JXPR.S EQ,c£04 1 

CMP.I t?Q,DL7~ ; -s» 

JHPI.S EO,c£Ot 1 

CKP.t #2S,Dt7" ; -C- 

JNPA KE,nextcode 

C604J: BCLR fFOREVAftO.SR 

JKPt.S coOt 3 

C604 2: BSET #FOREVARD,SR 

C604J: CLt LABEL BUf 

MOVE # LABEL BUF*1,A4 

CALLA c615 

MOVE DO, AD ; store last width 

c605: CAIU rom 

c606; CALU e611 ; g*t char pattern ft character 

CMP fS78,DH7 

JWA EQ.nextcode 

CALU eoli . che ck widths 

CMP eo,OH7 

JMPA CO, next code 

eA07: MOVE A0,A1 ; c k 4/5 > CW/LW » 5/4 

LSI #2,A1 
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10 



75 



; CV > IV5/4 
; LV ► CV*5/4 

c6oa: hove mn v m ; ck 1.5 > cv/«o » 30.0 

t«*32 

CV > #0*50 



C609: 

20 



ADD 


A0,A1 


cmp 


A1,D0 


JKPA 


CT ( n«itCDdt 


HOVE 


D0 t D1 


LSI 


«,D1 


ADO 


00,01 


CMP 


D1,A0 


JHPA 


GT,ntitcodt 


MOVE 


lPT« t AS 


MOVE 


<A3>,02 


HOVE 


02,01 


ASL 


#5,01 


M 


02,01 


a» 


02,01 


o*p 


01,00 


JKPA 


GT,n*xtcodt 


MOVE 


02,01 


LSI 


01 


ADO 


02,01 


CMP 


01,00 


JKPA 


LT,n*xtcodt 


CXP.i 


mi,o»r 


JMPt.fi 


W,e610 


CMP.I 


PU2,0»7 


JMPt.t 


W.C610 


CMP.1 




JMPft.S 


E0,c6t0 


CMP 3 


HU,0M7 


JMPt.S 


t0,e610 


H0VE.S 


LAIEL Wf.WT 


CMP 3 


f36,DK7 


JMPA 


LE,c&05 


MOVE 


IPTt,A5 


ADO 


#16 # A5 


CMP 


WDE»,A5 


JMP4.S 


LT,e6tO 1 


a» 


ahdh.as 


MOVE 


<A5),00 


CAIU 


T, r 2 


MOVE 


(A*>,D1 


CALU 




ADO 


<a5>^i 


CALL 


H 2 


ADO 


<A$>,D1 


CMP 


DO,01 


JMPA 


CT, not code 


MOVE.I 


LAIEL IUF V DL7 


MOVE.I 


ttC*,DN7 


CALU 


outch 


MOVE.I 


DL7,M7 


CALU 


outch 


•TST 


#FOSElMflD # S* 


JMPt.S 


CC.C610 3 


MOVE 


«LAKL &r,A0 


MOVE.I 


<A0H,0H7 


CALU 


outch 


OJIZ.I 


OL7,c*10 2 


JMPA 


found labtt 


MOVE.I 


•<M)70H7 


CALU 


outch 


DJH2.I 


0L7,c510 3 


JMPA 


found Ubtl 



CV « tO*3/2 



coiO; 

; point to t<f«4) 
30 c610Ji MOVE <*5>-W ; 

ADO <A5>,D1 ; O7406VO5 

35 CMP 00,01 ; «7*o6>*5 > t(!*8) 

ttnd out label out 

s«nd tht count 

40 

C610.2: 

<5 colO 3: 



50 



55 
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ittSbe: DCS 



cod»!25: ITST 
JMPA 
HOVE 
HOVE 



#l2S,DtCCDCI1 
CC.cooeUPC 
Uttt,A5 
A5.IPTI 



j» If elei*nt(l) < »toMr 9 1n r.tlo • <tte*»*«t<UI>4.te«i«m(N2)>. then quit, 
worgln too mil. 



c503: 



MOVE 

CALLA 

MOVE 

CALU 

MOVE 

ADO 



ADO 



JMPA 



<A5>.00 
TI2 

<A5).0l 
TI2 

<A5),02 

01,02 

02,03 

02,02 

03,02 

DZ,D0 



check m\t\ margin retlo* 
tO 

•1 

•2 



; 02 • <o1*e2>*3 
; t0 < C«1*«2>*3 



c504 



Look for a vol Id ourt pottorn. Chtck If ote*entCW>/ttf«nt<H2> > «ox 

Oitck If olo«ntCH3)/tl— nt(l*1> > otorfttop ^f"™^ 1 :"; 
Mt forvMrd decode fits true (otort pattern hoe two wro« b«r», b^kwjrd 
!•« !.rtlm he* iwrowber foUeiMd by «tde ber>. If foreword, ch«:k If 
•I2e5< W/ilt^ItlH) > «Tn e7e«eni ratio <1.5>; M to, qplt <t« bor. 

element raHo <1.5>. If ao.quit. If for ^ Itfrtjt f eck f ole«n 
<{*3>/clemnt«*1> < mk eloaent rotio <5.0>. If not «o # quit- otfterwut, 

(1*2) • neroin icaler <8.0>, aet M etrlng to onpty. tnd Increment iPTR 
* 8 ' TEST MAX HARROW ELEMEN RATIO 

;«2 



MOVE 
MOVE 
ADD 



JMPA 

MOVE 

ADO 

ADO 

CMP 

JMPA 



c5«J: 



MOVE 

MOVE 

LSX 

ADO 

CMP 

JMPR.S 

MOVE 

ASL 

ADO 

CMP 

JMPA 

•at 

CALLA 

JMPR.S 

CALLA 

MOVE 

MOVE 

ISR 

ADO 

CMP 

JMPA 

MOVE 

LSI 

ADO 

CMP 



<AS>,02 
02,03 
02,03 
02,03 
03,01 

GT.coooUPC 

01,03 

01,03 

01,03 

03,02 

GT.eodeUPC 

TI2 

(A5>,03 

01,04 

#1,04 

01,04 

04,03 

G7,c504J 

01,04 

#2.04 

01,04 

03,04 

GT.eodeUPC 

ff0REUARD,SR 

712 

c504 2 

TI2 

<A5>,04 

02,05 

#1,05 

02,05 

05,04 

GT.eodeUPC 

04,D5 

#1.05 

04,05 

05.02 



e1/o2 > 3 ? 
KEN 01 • ol 



e2/o1 > 3 T 



TEST DIRECTION OF SCAR 



t3/e1 > 1-3 <Ht «*> fore*ord»tn*> 
FOREUARO OECOOE 7 
BACKWARD DECODE I 



e3/t1 < 5.0 

rove IPTR to IPTR*5 



r «4/e2 > 1.5 



tZM * 1.5 
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JMPA CT.c udruK 

NOVf D3,0S 

tSft #1,05 

ADD 05,01 

CMP 03.01 ; e1/e3 » 1.5 

jmpa CT.codeuPC 

•SET IfOttWAtO.M 

c5M 2: NOVt AS.lPft ; IPTR IPTR*8 

AO© 02.01 

ASL tl.Dt 

MOVE 01.A0 ; IAST WIDTH :- (eW2)*8 

CLR LAIEL tVf 

MOVE *LA»EL IUf»l,A4 

c5D5: CALU root 
.* 

9 

Find the widest, narrowest and totals for the bars and tpaces in the 
current character. If f FOREUAAD U trut (bit set) then this loop 
;• exile with: 

;• 01 « e1*c3+eW*e9 (bar total) 

;• 03 ■ widest bar 

;* OS • narrowest bar 

;• 02 * e2*e**eo*eO>e10 (space total) 

;• 04 ■ widest space 

06 • narrowest space 
else. If if okeuaad la falaa (bit clear) then: 
;■ 01 • sO»e2*e4*eo>e« (space total) 

;• 03 • widest apace 

OS • narrowest space 
;• 02 - e1**3*e5*e7*e9 (bar total) 

;• 04 • widest bar 

;* 06 • narrowest ber 

c511: MOVE IPT1.A5 

ITST fFOJUUAtO.n 
CC.cSII 1 



T12 ; If foreword decode e1 ■•» 01 

c51l 1: HOVE (A5).0l ; else eO «o 01 

HOVE 01.03 
MOVE 03,05 

CA1LA TI2 ; if foreward decode .2 »» 02 

MOVE (A5),02 ; else el •«> 02 

MOVE 02.04 

MOVE D2.06 

MOVE.! #4.017 
c511 2: CALU TI2 

CMP (A5),03 ; 03 > (A5) 

JMPt.S CE.cSH 3 

MOVE (A5),03 - 
C511J: CMP (A5),05 ; 05 < (AS) 

JKPt.S LE.cSII 4 

MOVE (A5).0S~ 
c511 4: ADO (AS).OI 

CALU TI2 

CMP (AS) ,04 j 04 > (AS) 

JMPt.S «,c511 5 

MOVE (AS),04~ 
c511J: CHP (A5).D6 ; 06 < (A3) 

JKPR.S lE.cSII 6 

MOVE (AS).06~ 
c511 6: ADO (AS),02 

OJNZ.I DL7.CS11 2 

ITST ftFOBEVARO.SR ; If backward decode swap in wide/ 
JMPR.S CS.cSlW ; narrow bars and spaces and totals 

EXC 03,04 - to eatch. 

EX6 05,06 
EXC 01,02 

; AT EXIT: 

; 01 » e1«c3«e5+e7*c9 (bar total) 

; 03 » widest bar 

; OS ■ narrowest bar 

; 02 » c2+e 4 *e6»oO'c10 (space total) 

; 04 e widest specs 

; 06 • narrowest specs 

cS11_7: MOVE 01,00 

ADO 02.00 ; calc character width 

MOVE 01.A1 
ASL S3.A1 

SUt 01, A1 ; A1 • bar thresh 

LSI tS.Al ; calc bar thresh 7/12 w tn 



MOVE 02.A2 
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in 



02.A? 



A2 • fcpftce threih 
c«lc ipace theih 



7/32'tn 



Set • pair of binary rxuUre. recreating the bar end spate pattern* to 
zero. If foreward It true, u»e elements In order et r e3, e5, tT end e9; 
II forward Is felse, use elmtnts In order e9, e7, eS, e3, end el, These 
ordered elements ire compered with the bar threshold. If the element under 
consideration ft greater then the celculetcd threshold the binary bar 
pattern ii ieult1plied by 2 nd has 1 added to It, otherwise It is ruttl- 
piled by 2 only. Statltarly. for the spate pettern ordered element* e2, e4. 
eo, eft, ard elO are considered If foreword it true, otherwise ordered 
elements eO, »4 # «2. mrd eO arc considered. 



cS12a: CtR 
OR 

MOVC.I 

•m 

JMPi.S 

•a 

MOVE 
eS12a 1: CAUA 
ADO 
CMP 
JKPt.S 
ADO 

cS13e: 



cSISa 1i 



ADO 
CMP 

jmpr.s 

ADD 

ojkz.i 

JMPR.S 



e512b_1: ADO 



R.S 



c513b: 



CAllA 
ADO 
CMP 
JMPR.S 
ADO 

cSWbJ: CALU 
DJHZ.I 



Dt 
02 

#5 # DL7 

ffOttUARD r SI 

CC,c512bJ 

iPTt,A5 

112 

01,01 

<A5>.A1 

lE.cSUe 

#1,01 

T« 

02,02 

(A5),02 

LC.cSUaJ 

#1,02 

OL7,eS12aJ 
c5H 

01,01 

CA5),A1 

IC.cSUb 

#1,01 

»L2 

02,D2 

CA5),A2 

U.eSUb 1 

#1,02 

Dt7?c512bJ 



REM If foreword • fttte 
iPTR «> e9 

If fOtCUARO ■ true 

starting at el, cole bar pattern 

looking at e1,e3,eS,e7,e9 



starting at eZ, calc space pattern 
looking et e2,e4,ed,e8,e10 



If FOREUARD - felte 

storting at «9, cole bar pattern 

looking et c9,e7,e5,e3,e1 



starting et e8, cole 
looking et e8,o6,e4,e2,e0 



pattern 



;• use the binary patterns calculated as e pointer to select e character 
;• from the pettern *l25bs r indexed et 0. If the chsrecter pattern 1s *x» 
indicate bed pattern and return, els* get character pattern. 



cSH: 



MOVE 
MOVE 

ADO 

MOVE. I 
OCP.I 



MOVC.I 
CMP.O 
JKPA 



#xi25be,A1 

A1 V A2 

D1.A1 

<A1),DU 

#'««,0L1 

EQ.CS10 

02,A2 

<A2) f 0L2 

#»*».D12 

E0.C51D 



; If cher »*\ quit 



; At EXIT 



01 »■> bar character 

02 •» space character 
00 »» char width sun 
D3 • widest bar 

DS « narrowest bar 
04 • widest space 
06 » narrowest space 



;• Check element widths. Ref 5.3.15 to 5.3.21. 



c516: 



MOVE 

ASL 

ADO 

CMP 

JMPA 

MOVE 

ISR 

ADD 

CMP 

JMPA 



06,07 

#2,07 

06,D7 

07,04 

CT,c510 

06,07 

#1.07 

06,07 

07, 04 

IT.C510 



; widest_sp/nerrowest_sp > $ 



• wldest_sp/narrow«st_sp < 1.5 
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cSU: MOVE 05,07 
ASl «.D7 
ADO 05.07 

07,01 ; *i6f\J*r/wrow%\J*r * 5 

jkpa CT.cSIC 
cSli: MOVE 05.07 
ASl #1,07 
ADO 05,07 

CMP 07,03 J wldesl ber/r*rro-rtl_bsr « 1.5 

JMPA ll,c510 
tM9: MOVt 06, D7 
ADO 06,07 
ADO 06,07 

CMP 05,07 ; nsrro»est ber/nerrowest_ip > 3 

JMPA Cl.cStO 
c520i MOW 05,07 
ADO 05,07 
ADO 05,07 

OtP 06,07 ; rtirrowMt tp/r*rro«t«t_ber > 3 

jmpa CT,e510 

.a 

• Coapute tht ratfe of the sue of the eleMMs fn the current f raw width to 

• the last 1ram width. If this fa tht first character pair Cstsrt/stop), 

• then check If thU ratio > mx Mriin char ratio (2.0) or If 1/ratlo la 

• > mx Mrs in chor ratio. If It fa, than quit (no char found). If not tho 

• ff rat tlM through, than ff this ratio fa iraator than mi char ratfe 

• (1.25) or toot than aln char ratio (.80), than go to stop 5.3.9. 
i* 

c*07: M0VE.I um Iu*,0ll7 
CNP.t «,0k7 

JMPt.S W,c507 ' 1 ; f»n CftAtACTEl 

MOVC A0,D4 ; get Last char Width 

ADO 04,04 

CMP 04,00 ; CV/LU > 2 

JMPA CT.codeUPC 
MOVE 00,04 
ADO 04,04 

CMP 04, AO ; IV/Ctf > 2 

JKPA tf.ccdeUPC 
JMPA c508 
C507 Is MOVE A0,04 ; 1*M CMAAACTM 

L» #2,04 
ADO A0,D4 

CMP 04,00 : CW/IW > 5/4 ~> CU > LV1.2S 

JMPA CT,c510 
MOVE 00,04 
IS* *2,D4 
ADO DO 04 

CMP 04|a0 ; CV/LW < 4/5 "* IW > CV1.25 

JMPA 6T,C$10 

';• If tha length af tha label atring fa la tha mxIkh allowable iabal 
length, quit I Otharwlaa, aat LASTVIOTM to currant CXMJIIOTK, add 
fraM width (20) to IPT* and append tho dacodad Chirac tart to tha 

;• end of tha labal at ring. If for award decode la trua appand bar char 
and than apaco char. If foreward la falaa append speca char and, than, 
bar character to tha label atrlng. Then, re-enter tho decoding loop. 

•a 

cM»: MOVE.0 12511,017 ; get MX allowable 125 label length 

CMP.i DM7,017 ; Mill > 0H7 ( actual labal length) 

JMPA C^codeUPC 

MOVE 00,A0 ; USTJ/IDTH :» CX»Ilit_CHAIUIDT» 

MOVE 1PTK,A5 

ADO «0,A5 ; IPT* iPTt+20 

CMP «OE*0,A5 
JNPt.S LT,c508 1 
SUt «U!DTH,A5 
c50« 1: MOVE A5,1PT» 

ADO. I f2,LAIEl tUF ; add dacodad char's 
IT SI «FO«UAtO,S» ; IF fORCUARD ■ true 

jKPi.s CC,c506 2 ; ■ppend bar char ♦ apace char 

MOVE.I Dl1,(A4}* 

MOVE.B 012. (A4H 

JMPA rfOS 

c508 2; HOVt.l Dl2,(A4» ; IF FCOtWOO • falaa 

MOVE.I Oil, (A*)* ; ipc*nd spice char ♦ bar ehsr 

JMPA c50$. ; re-enter decoding loop at top 

• Check for possible end of tebel. 

• Ch*ct if elemt<1«)/(ele**nt(f*2)*elcMnt<i+3)) > ««n ■ergln rstio (3.0). 
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to 



75 



20 



time* e*r 0 f» .cater <8.0)/l.tt char * 1<mi > w9 lr> C her r.Ua A IV 
< 1/«t M r 0 1n chtr ratio <0.5). |f te> ,m Ch " rM1 ° <2 °> " 

^ *I lESFrSuE SJ** I"" »««Wl/W««m.I| U greater 
If fortwrd It fatee check that ele«*ntCl.1)/ele««tCM) It ere.ter than 
I «o. V ft. Then, check the, el«nentCI)/ele™em(I*2) It areeur Z 
quit. If okay, revert* the order of the .trine end tend U out! ' 

HOVE • <A2),DL7 . 8et (abet length 

CHP.f #0,DL7 
JMPA E0 # codeUPC 



MOVE 

CAtU 

MOVE 

CALL A 

HOVE 

CAIU 

MOVE 



30 



35 



HOVE 

ADD 

MOVE 

ADO 

ADO 

CMP 

JKPA 

HOVE 

ADD 

ADD 

CMP 

J MP A 

HOVE 



CMP 

JMPA 

MOVE 

ASL 

MOVE 





ADD 




CMP 
JMPA 




MOVE 




LS9 




CMP 




JMPA * 








BTST 




JHPR 


• 






MOVE 




ASL 




ADD 




CMP 




JMPA 




MOVE 




1ST 




ADD 
CMP 




JMPA 




MOVE.I 




CALU 




ADD.t 


cSIOJ: 


MOVE.! 




CAtU 




DJN2.B 




JMPA 


.* 




c510_2: 


HOVE 




LSt 



55 



IPT«,A5 
<A5),00 
TI2 

U5),D1 
M2 

(A5),02 
Tl* 

<A5),D3 
TI2 
02,04 
03,04 
D4,D5 
04,05 
D4,0S 
(A$),D3 
IT.codeUPC 
02,05 
05,05 
D2,DS 
D3.D3 

Cl,codeUPC 

D3,D5 

03,05 

D3,D5 

D5,02 

GT.eodeUPC 

D4.D5 

«,D5 

A0,At 

AY,A1 

A1.DS 

CT,codeUPC 
A0.A1 
f1,A1 
05.A1 

CT,codeUPC 

#FOREWARO,« 
CC,c510_2 

03,05 
#2,05 
03,05 
05.D1 

GT,codeUPC 
03,05 
ft, 05 
D3,D5 
D5,D1 

LT,codeUPC 
«2S,0H7 
outch 
*1,DI7 
<A2)*,0H7 
outch 
DL7,c5l0 1 
foundJ.be | 

D3,D5 
»1,D5 
03, 05 



; «2 



; wove pointer to «4 
; dc e4/«2*t3 > 3,0 
; 04 - e2*e3 



; 05 • 3*<e2*e3> 
; 3*(*2*«3> < e4 

; e2 

; e2*3 

; «3/»2 > 3.0 



? «3*3 

; «2/e3 > 3.0 

; ck 1/2 » (e2**3)«6Atf * 2 

; («2*e3)*e rem D4 « *2*e3 

? LV*2 

; (e2*e3)»fl > 2*LV 

; 1/2»LU > (e2^3)-8 



; IF FDREWARD • true 

; ck 1.5 » e1/*3 > 5.0 

; «3 
; c3*4 
; »3*5 
; tl > «3»5 

; t3 

; e3/2 

; e3/2 ♦ «3 « e3»3/2 

; el < e3»3/2 

; tend I. bet type 

; tend label length and the label 



2/3 > e1/e3 > 3/2 

•V*3 > 3/2 ••> et > «3»3/2 
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ist 

70 ADD 02,05 

05,00 



in #1,05 

ADD D1.D5 
O* 05,03 

s as*"" .* *»•■«-•*» 

oi,DS ; * 3/2 



lsr 

ADO 00,05 

«P 05.04 

T5 JWA LT.CodtUPC 

hove.I #S2S,dh7 ; ttnd Ubil tyj» 

CALIA outch 

me.i otr # o»7 ; ltn » th 

CALLA outch 

c510 S: HWf.t -<M.Mt 

CALL* outch 

20 DJHZ.t Ol7.c510_3 

JHPA foundjtbtt 



30 



05 



40 



50 



55 
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»c93tbl: DCs •01234J67B°*BCDEfGHimHiOfrQ*S1UWXrz-. */•«**• 

*c93»e: DCs S1t,»1C,tlD,«U,S1» 

OC.I »7f,0 # WO.MO 



• If fore*»rd Is true, tin elements el through e*. Then calculate the four 

• sum ten* T1*e1*e2 a T2«e2«e3, T3-e3*e4, U»e4*eS. If foreyerd Is false, 

• sun elements t2 through e7. Then calculate the four sun lenw T1«eo»e7, 

• T2»e5«ee. T3=e4*e5, T4«e3*e4, Reference sections 7.3.12 through 7.3. U 

• of the technical document ion. 



c712: 



e712a: 



c712b: 



MOVE 


IPTK.A5 


ST ST 


f FOR£UARD,SI 


JKPft.S 


CC,c712b 


CAILA 


TI2 


MOVE 


(AS), 01 


MOVE 


01,00 


CAIU 


112 


HOVE 


(AS) ,02 


ADD 


02,00 


ADO 


02 01 


CALLA 


t12 


MOVE 




ADO 


D3 DO 


Ann 


03 02 


CALLA 


TI2 


MOVE 


(A5),D4 


ADO 


04,00 


ADO 


04,03 


CALLA 


I« 


ADO 


<A5),Dfl 


ADO 


<A5),D4 


CALLA 


112 


ADO 


(AS),Dfl 


JMW.S 


C715 


CALLA 




MOVE 


(A5>,00 


CALLA 


T« 


MOVE 


<A5>,D4 


ADO 


04,00 


CALLA 


112 


MOVE 


(A5),03 


ADO 


03,00 


ADD 


03,04 


CALLA 


TI2 


MOVE 


<AS)^1 


ADD 


02,00 


ADO 


02,03 


CALLA 


T« 


MOVE 


<AS),01 


ADO 


01 ^D 


ADO 


01,02 


CALLA 


T« 


ADO 


<A5),01 


ADO 


(AS),00 



; el 



; 11 • e1*e2 



; T2 « *2+c3 

; *4 



; 13 • e3*e4 
; t3 

; T* • e4*e5 

; 00 « eHe2*e3*e4*e5+e© 



; t3 



; T4 * e3*e4 

; *5 



; T3 • «4*e5 



; 12 • e5*e6 

; e7 

; 11 » e6*e7 

; DO « e2*c3*e4*e5*e6*e7 

• Compute the three threshold values by euLtiptyfno. the character width 

• calculated above by the three threshold values 2.5/9, 3.5/9, and 4.5/9 



c71Si 



CLR 

MOVE 

MOVE 

OIVU 

MOVE 

LSR 

ADD 

ADD 

MOVE 

ADD 

MOVE 



AO 

D0.A1 
#9,07 
A2,A0 
A0.A1 
*1,A1 
A0,A1 
A0,A1 
AT.A2 
A0.A2 
A2,A3 
A0,A3 



; AO « CW/9 

; A1 » CW/9 • 2.5 »»> threshl 

; A2 • CM/9 • 3.5 «=> thresh* 

; A3 ■ CU/9 • 4.5 •« thresh3 



;* Compute the four dfgtte of the character pattern. <d)1 thru (d)t, by doing 
the following for eech am 11 through 14. for j 1 through 4: 
(d)i • 2 If TJ « thresh! 
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;• <d>J ■ 3 If IJ < thr«h2 

;* (d»J ■ 4 If Tj « ihrriW 
(d)J • 5 If IJ >• thrnh* 

fi The patttrn ft aqual to: 

?• (Cd>4J • 16*(<d)3) • »6M(d)Z] ♦ 4096*(fd>11 

C716: C» 41,01 ; Tl < threihl 

JKPft.S C£,c716 1 

MOVE n?ooo,5$ 

JMP«.$ c716 4 

C716 1: O* 42,01 ; Tl « thrt»h2 

'0 ~ j*Pt.$ tt,c7ld 2 

NOVE #»3COO ( D5 

JMP«.S c716 4 

c716_2: D» 45,01 ; Tl « thrt*h3 

JMPft.S G£,c716 3 

move mooo.M 

JMMt.S c716 4 

r5 c7t6J: MOVE 05000,05 ; Tl >• thrtthS 

e7Wj4: WP 41,02 ; Tj < thrwhl 

JMPft.S tt,c7l*3 

400 00200,05 

JMM.f c714 I 

C716 Si CNP 42,o3 ; T2 < thrtiM 

JW1.I Gf,c7W * 

ADD 00300,05 

20 JKPi.S C 7U a 

c7W 6: CNP 43,0? ; TJ « thrtshS 

JNWU8 tt # c7M 7 

ADO O«00,D5 

JKPft.l c714 8 

c716 7: 400 00500,03 ; T2 >• thrmhS 

c7W_8t CNP 41,03 ; T3 < thr^l 

^5 JMPt.t CE,e716 9 

400 1X0020,05 

JHPR.S c716 12 

c716_9: CMP A2,oS ; TJ < thr»th2 

JHPft.S CE,c714 10 

400 00030,03 

JNPA.S cm 12 

c716J0; CMP 43,03 ; TO < thrtthS 

30 JHHt.l «,c716 11 

<?3» 400 00040,55 

JMW.t c716 12 

C716J1: 400 00050,05 ; T3 >• thr«th3 

C7UJ2: CMP 41,04 • T4 < thrwhl 

JNPft.S 6C,c716 13 

4D0 00002,05 
HCT 

c7!6_13: OP 42,04 ; T4 < thr*fth2 

JNPft.S C£,c7U 14 

400 00003,05 
Id 

C714J4: or 43,04 ; T4 < thr«h3 

4NWM GE # c716_15 

400 00004,05 
<0 RET 

C716J5: 400 00005,05 ; T4 >« thr«h3 

«T ; AT EXIT 00 ehtr width 

; OS »•> chw pattern 



35 



codfC93: ITST #C93,DEC0DEK1 

JKP4 CC,rwitcod* 

MOVE U«t!,A5 

NOVE A5,1rTft 

' ;• Ch«ck that «t«mnt<D > 3*{tl«ntm(l*l) ♦ •l««nt(l«2». 

50 

c703: HOVE <A5),00 

CALU TI2 

MOVE <A5),D1 

C4LLA TI2 

400 (A5),01 

MOVE 01,02 

55 AM 01, Dl 

400 02,01 
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c704: 



c704 1: 



C7D4 5: 



c7K 6: 



C704 7: 



c704 8: 



WP 
JW>A 
BSET 
CALU 

CMP 

JMPR.S 

•SET 

JMPR.S 

CMP 

JHPA 

MOVE 



MOVE 

CALU 

MOVE 

MOVE 

ADD 

CKP 

JMPA 

AW 

CKP 

JMPA 

KIR 

MOVE 

CAUA 

ITST 

JMPR.S 



MOVE 
MOVE 



MOVE 
NOVE.l 



c704 2: 



c7W3: 



c7M>: 

CMP 
JMPR.S 
MOVE 
CMP 

JNPR.S 
MOVE 
CAUA 
CMP 
JHPt.S 
MOVE 
CMP 

JMPR.S 
MOVE 
DJHZ.B 
8TST 
JKPR.S 
EXO 
EXfi 

c704 9: ASL 
CMP 
JHPA 
ASL 
CMP 
JMPA 

an 

MOVE 
MOVE 

.* 

cbtrloop: HOVE 
ADO 
CMP 
JMPR.S 
SUB 
MOVE 
CAtlA 



cbarll: 



c706 1: 



CKP.B 

JMPR.S 

CMP.I 

JMPR.S 

MOVE. I 

JMPR.S 

CMP.I 



D1,0D 

It.neitcode 
e712 

fl2225,D5 
tt,e704 1 
tf ORE WARD # St 
c7W 2 
ffl2SS2,05 
HE, next code 
IPTR,A5 
TI2 

(A5I.D1 
TH 

(AS>.03 
Ot,D2 
02,02 
02,03 

OT, next code 

03,03 

03,01 

GT,r*xtcode 

WOftEVXRD.SR 

«PTR,AS 

112 

#fOR£VARD,SR 

CC,c704_3 

TI2 

(A5),D1 

01,03 

TI2 

(A5),02 

D2,M 

•2,017 

TI2 

<AS),01 

GE,c704J 

(A5),D1 

(A5),D3 

LE,c704 6 

<A5) t 03 

TI2 

<A5),02 

GE,c704 7 

(A5),02~ 

<A5),M 

LE,«704 8 

<AS),D4 

0L7,c7W 4 

#FOREUARO,St 

CS,c704 9 

01,02 

03,04 

*3,D3 

03,01 

CT,mxtcode 

#3,04 

04,02 

GT, next code 
LABEL BUF 
RLABEL 6UF+1.A4 
OO.LASTUIDTH 

IPIR.A5 
«12,AS 
#GOEHO,AS 
LT.cberU 
•WIDTH, A5 
fPTR,A5 
C712 

fS22,0K3 
NE,c706 8 
«22,DL5 
NE,c706 1 
R*7»,DH7 
«707 
#SZ3,0LS 



; rO < 3*(tW2> 



; AT EMIT DO ••> Cher width 
; D5 •■> Cher petttrn 

; fMEVARO START T 



8ACCWARD START 7 



; c3/e1 > 2.0 



; eV«3 > 2.0 



; «3 or e4 > (AS) 



; *3 or e* < (AS) 



; t4 or c5 > (AS) 



*4 or eS < (AS) 



; AT EXIT 01 »«> wide ber 
; D2 «»> wide spocc 

; 03 ■*> nmrrov bar 

; 04 m> n«rn 

; ck wb/nb > 8.0 



vs/n* > 8.0 



; Increment pointer by 1 frerae width 



; AT EXIT 00 »■> cher width 
; 05 »■> cher pattern 



2222 • »7» 
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JKPI.S «.«706 2 

KOVE.I f'l*,Dtf ; 2223 • *t* 

JNPt.S c7Q7 
c706J: CXP.I A2S.01S 
5 JKPl.s «,«706 2 

HOVf.l f<r,Dn7 ; 2225 - rwo STAIT 

JKPI.S c707 
c706 3: CHP.S tl)3.0lS 
JKPI.S «,c706 4 

NOVE.I rV.OHf ; 2233 ■ "1" 

JKPI.S e707 
70 cm J: CMP. | #S34,Dl$ 

JKPI.S tt,t706 5 
KOVf.l fK* # CH? ; 223* ■ 

JKPI.S e707 
c706_5: CXP. I nU,DL5 
JKPI.S KE.C706 6 

#*2' c Dn7 • 22U • »2» 

JKPI.S c707 
75 e7D6*: OV.I 1*45,015 

JKPI.S tt,c706 7 
KOVt.l #'S»,Dl7 ; 2245 • 

JKPl.t «707 
C706.7: CXP.I #SS5,DLS 

JM»A KE,ntxtcode 
NOVC.t #'3' # D«7 ; 2255 • »3» 

20 <707 

c706 8: WP.I #23,015 

JKPI.S tt.cTt* H 
OT.I #132,01$ 
JHPt.l K€,c706 9 
HWI.I ••€\DlfJ ; 2332 • 

JKPI.S ©707 
^ C706.9: CXP.I «S33,0l5 

25 JKPf.S «,c706 10 

MOVf.S f'V.otf ; 2333 * >'U* 

JKPI.S e707 

c706 10: WP. I #134,013 

JHPt-J «/c706 11 

KWI.I #V , ,W7 ; 2334 • •/• 

JKPI.S c7D7 

30 c706J1: OW.I #U3,DlS 

M JKPI.S ME.C706 12 

W*.f #««* V DH7 ; 2343 » 

JKPI.S «707 

0706,12: CMP.I #*44,DL5 

JKPI.S *E,c7D6 13 

KOVE.I #«X\Dl7 ; 2344 • »X» 

c70M3: OP.S «54,0L5 

JKPA lE.nwtcodt 

KQVE.I #*I' # DH7 ; 2354 ■ »P 

JKPI.S c7D7 

C706J4* or.| fl24,DK5 

JKPI.S *E,c706 15 

WP.i #S43,Dl5 

JKPA KC,f»xtcodt 

40 KKE.B # , * I # 0H7 ; 2U3 - •♦* 

JKPI.S e707 

C706J5: ttP.I #t25,DKS 

JKPI.S tt.c706 16 

OtP.i ff52,Dl? 

JKPA NE.naxtcodt 

KOVE.I t')« t DH7 ;2552»»)' w> BUD START 

JKPI.I C707 

43 c706J6: CBP.S #S32,OHS 

JKPI.S KE,c7W 22 

CKP.S «22 t Dt5 

JKPI.S «,e706 17 

KOVE.i rA',PN7 ; 3222 - «A» 

JKPI.S c707 

C706.17: CXP.B #S23,D15 

50 JKPI.S *E,c706 10 

KOVE.I #'S',Dll7 ; 3223 • »S« 

JKPI.S c707 

C706J8: CKP.i «24 # 0l5 

JKPI.S NE,c706 19 

KOVJ.i f'X'.PH? ; 3224 ■ «X« 

JKPI.S c707 

„ c706J9s OiP.l nJ3.DlS 

55 JKPI.S KE.C706 20 



36 
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WVE.S fl',0M7 ; 3233 - «b» 

JNPft.s c 707 
c706 ?0: CMP. I .. rlW.DtS 
JMPR.S *£ ,c706 21 

MOVE.! *'T\DH7 ; 3234 • »T B 

jmpr.s cm 

cTOA 21: CNP.i f*U,Dl$ 

JMPA «»neitcode 

MOVE.! R»C\DH7 ; 32a - «C» 

JMPR.S «707 

r706 22: CMP.B «3J,0H5 

JMPR.S «,c706 SO 

CMP.B «22,Dl$ 

JMPR.S Ml (C 706 23 

MOVE.B S'4*,ra? ; 3322 « *4» 

JMPR.S c707 

e706_23: CMP.B rt23,Dt5 

JMPR.S RE,c706 24 

HOVf.l f'0>,0*7 ; 3323 • »0« 

JMP*.$ c707 

C706 24: CKP.B «24,D15 

JMPR.S RE.cTW i 25 

KOVE.B t«-'.DH7* ; 3224 ■ 

JMPR.S e707 

C706 25: CMP.B «32,015 

JMPR.S HE,c706.26 

MOVE.! # l O\DH7 ; 3232 > *0» 

JMPR.S c7Q7 

C706 26: CMP.R n33,0l5 

JMPR.S NE.C7Q6 27 

MOVE.! rS\OH7 ; 3233 - '5 1 

JMPR.S c707 

cT06 27: CMP.B #t34,0l5 

JMPR.S Vt,c706 25 

MOW.B #M* c 0H? ; 3234 ■ •!• WAR ««> *S 

JMPR.S c707 

c706 26: CKP.I «43,Dt5 

JMPR.S «,c706 29 

NOVE.B f *R',PH7 ; 3243 • *R* 

JMPR.S C707 

c706 29: CKP.I «44,Dt5 

JMPA NE.ntxteode 

KOVE.B #«6\DH7 ? 32U « «6« 

JMPA c707 

c706 30: CKP.I RS34.0H5 

JMPR.S M£,c7D6 33 

CKP.I H32.015 

JMPR.S NE a c706 31 

KOVE.B #*J\0»7 ; 3432 « »J» 

JMPR.S c707 

c706_31: CKP.I «33,P15 

JMPR.S KE.cTDd 32 

KOVE.B f»t\0H7 ; 3433 • »T« 

JMPR.S €707 

c706_32: CKP.I RS43.0L5 

JMPA NE,ntxtcode 

MOVE. I #«4\DH7 ; 3243 m *V CHAR «> 

JMPR.S c707 

c706 33: CKP.I RS35.0H5 

JMPR.S RE.C7D6 34 

CMP.B «42,plJ 

JMPA KC.nentcode 

MOVE #»2',DH7 ; 3S42 « '2' 

JMPR.S c707 

C706 34: CMP.B W42.0H5 

JMPR.S RE,c706 37 

CKP.I #122,015 

JMPR.S IIE.c706 34 

MOVE. I ••.\DH7 ; 4222 • *.« 

JMPR.S c707 

e706 33: CKP.I »23.Dl5 

JMPR.S HE,c706 3d 

MOWE.I i'f. DH? ; 4223 • CHAR »*> V 

JMPR.S C707 

c706_36: CKP.I «3J,Dl5 

JMPA NE,neMcode 

KCVE.I •' ".M7 ; 4233 ■ • • Cipac*} 

JMPR.S c707 

c706 37: CKP.I «U3,0H$ 

JMPR.S NE.C706 41 
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CMP.I rtZ2,0l3 

JNPt.S W ,c706 M 

lOVt.l i'D\DM7 ; 1)22 • '0* 

JMPt.S c707 

S c706 36: OV.I «23 t DU 

JMPt.S tt,c706 39 
MOVI.i f*U',0H7 ; 4323 • 'O* 

JiMJ c707 
c706 39: OVJ «32,DLS 

JMPt.S *t,c706 40 

MOVE.! f'fl',011? ; 4332 • '9' CMAt ** 

tn JHPt.S c707 

70 C706 40: CMP.I n33,OL5 

JMPA KE.rwitcodt 

MOVE.I ««E'.0N7 ; 4333 • »E» 

JMPt.S C707 
c706 41i W.I «44,D*S 

JMPt.S «.c706 45 

CMP.I «22,Dl5 
75 JMPt.S rt f c70& 42 

MOVE.I 0W.DN7 ; 4422 ■ *0» 

JMPt.S e707 
c706.42: CMP.I f»23 4 0t5 

JMPt.S W,c706 43 

MOVE.i f<P* ( DN? ; 4423 • •P 1 

JMPt.S C707 

„ C706 43: or. I «32,Dl5 

*° JMPt.S «E,c706 U 

MOVCt fV,0Hr ; 4432 ■ »V* 

JMPt.S c707 
c706 44t CMP.I f*33,0L5 

JMPA W.rwxtcod* 

MOVE.I f*6MW7 • 4333 - 

JMPt.S c707 

25 c7D6 45s CMP.I #U 5,0*5 

JMPt.S MC.C706 46 
CMP.I #S32,D|J 
JMPA KE.mittodt 
MOVE.i f *ICSDM7 ; 4532 » 

JMPt.S c707 

c706 46: CMP.I «SS3,WIS 

JMPt.S N*,C706 47 

^ CMP.I #S22,0l£ 

JMPA KE # rwxecodt 

MOVE.I #*S*,0N7 ; 5322 • *S> 

JMPt.S c707 

c706 47: CMP.I «54,DH5 

JMPt.S IE,e7D6 48 

CMP.I #S22,Dl§ 

35 JMPA *E,rMXtcodt 

MOVf .1 #'f \DH7 ; 5422 • »F« 

JMPt.S c707 

c7D64«r CMP.I «55,0H5 

JMPA Kt,ntxtcodft 

CMP.I «22,DL5 

JMPA NE,r«xtcodt 

M K0VE.I f *9' f DN7 ; 5522 ■ '9» 

w c707: MOVE «PT«,A5 

CAIU 112 

•TST tFOREUARO, Sft 

JMPt.S CC t e717 1 

CALIA H2 ™ 

c717 I: MOVE (A5>,01 

MOVf 01,03 

<S CALU T12 

MOVE (A5),D2 

MOVE 02,04 

MOVE.I I2.0L7 

C717 2: CALLA TI2 

CMP (AS),D1 ; «3 or «4 » (A3) 

so J***.s a.c?\7j 

MOVE (A5),D1 

c717_3: CMP (A5),03 ; «3 or «4 < <a5) 

JMPt.S LE.C717 4 

MOVE <A5>,03~ 

c717_4: CAIU TI2 

CMP (A5) # 02 ; #4 or #3 > (*5) 

JHPt.S GE.e717 5 

55 MOVE (AS), 02" 



30 
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TO 



16 



20 



c717 5: 



«717 6: 



c7tB: 



e719: 



c7M: 



C709: 



eTIO: 



CMP 

JK*t.S 

*OVE 

0JH2.I 

HIT 

JMPI.S 

EXC 

wc 

ASL 

CMP 

JMPA 

ASL 

CMP 

JHPA 

HOVt 

MOVE 

LSI 

ADD 

CMP 

JMPA 

MOVE 

LSI 

ADO 

CMP 

JMPA 

WP.I 

JHPt.S 

CMP. I 

JKPft.S 

MOVE 



HOVE.I 
WP.I. 
JMPA 
JMPA 



(A5J.D4 

U,c717.6 

(A5),D4 

Dl7,c7UJ 

•FCttEVAflO.SR 

CS,e71S 

Dt,D2 

03,04 

#3,03 

03,01 

GT,ne»tcode 

*3,D4 

04,02 

GT, next code 

LAST W!DTM,0l 

01,02 

12,02 

01,02 

02,00 

GT,nextcode 

00,02 

#2,02 

00,02 

02,01 

GT, next cock 

EQ.C711 

*')',DN7 

E0,e711 

0H7 f (A4H 

DO.UST WIDTH 

LABEL BUf ,DL7 

f»,0L7 

LT.cbtrloop 

nexteode 



; e4 or e5 « <A5> 

; AT EXIT 01 wide ber 

• 02 wide spec* 

• 03 •«» narrow b«r 

; 04 ■»> narrow space 

; ck wb/nb > 0.0 

; ck ws/ns > 6.0 

; ck 4/5 > CU/LW > 5/4 

; CV >.Lw»5/4 

; Uf > CVS/4 



; 0L7 < 30 



30 



35 



c711: 



cTltJ: 



MOVE 

SUB 

CMP 

JMPt.S 

ADD 

MOVE 



MOVE 

CAILA 

MOVE 

ADD 

MOVE 

ADO 

ADO 

CMP 

JMPA 

■TST 



50 



MOVE 

MOVE 

ADO 

CMP 

JHPA 

MOVE 

ADO 

CMP 

JKPA 



iPTR,AS 

f16,A5 

A5,#G0ATA 

LT.C711 1 

*/10TH,A5 

(A5),00 

<A5).D1 

Tt 2 

<AS),02 

01,02 

02.03 

03,02 

D3 # D2 

00,02 

GT, nexteode 
#KKEUARD,St 
CC,C7T1 2 

"J 

(A5),D2 

01,03 

03,03 

03,02 

G1, nexteode 
02,03 
03,03 
03,01 

GT, nexteode 



; decrement pointer to 77777777 



; 02 ■ 3*<t7*«6) 
; 3*{e7*e6) > eB 



; 01 ■ «7 # 02 » «5 

; e5/e7 > 2.0 

; «7/e5 > 2.0 



c711 2: 
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vUble: DC.B 6.6,6,4.4,4,4,4,4. 4, 4,4, 6.6.6,6,6,6, 6,6 

DC.B 6,6,6,6,6.6,6,6,6,6,6,6,6,4,*,*, 4,4, 4, 4 

DC.B 4,4,6,6,6,6,6,6,8,6,6,6.6,5,6,6,6,6,6,6 

DC.B 8,4,6,4.4,4,4,4,4,4,4,4,4,4,4,4,4,8.4,6 

DC.B 6.6,6,6,6,6,6,6,6,8,8,8.6,6,6,6,6,6,6,8 

DC.B 8,8,8,4,4.6,6.6 

;* Check for parity error using the character value found at an Inde* into 
;* VIABLE, let the value found be Vn, If Vn*1. 75/11 « BAR TOTAL or If 
;• Vn-1.75/11 > BAR TOTAL, quit (parity error) 



m cBD7: HOVE 00,03 



LSR #2,03 ; CW/4 

MOVE 03,02 

ADD 03,03 

ADD 02,03 ; CU*3/4 

ADD 00,03 ; CV1.75 

TS CL * D2 

MOVE #11, A5 

OIVU A5,02 ; 02 ««> CU*1.75/11 

MOVE #vtable,A5 

CU 04 

M0VE.8 DH7.DL4 

20 ADD 04.A5 

M0VE.I <A5),DL4 

MUIU 00,04 ; 05 «> CU*Vn 

MOVE 05.04 

ADD 02,04 ; 04 • CU<Vn» 1.75/11) 

SUB D2,D5 ; 05 ■ CU<Vh- 1.75/11) 

CMP A3.D4 ; ck Vh*1. 75/11 < BAR TOTAL 

25 JMPA U.nextcode 

CMP A3 ,05 ; ck Vn-1.75/11 > BAR TOTAL 

JHPA OT.nextcode 

;* Find the widest bar and space and the narrowest bar and apace emoung the 

;* six elements making up the current character. If foreward U true, these 

;* elements are el through e6; if foreward It false, those element a ere e2 

30 ;* through c7. Next, calculate the ratio's of the widest bar to the narrowest 

t bar and that5 of the widest space to the narrowest space. If either of 

;* these ratio's Is larger than the maxima element ratio (8.0), quit the 

;* decoder (element widths out of tolerance). 
.* 

c816: HOVE IPTR.A5 

CALLA Ti2 

35 8TST #F ORE WARD, SR 

JMPR.S C$,c816 1 

CALLA TI2 

cB16 1: MOVE (A5),D1 

MOVE 01 .03 

CALLA T12 

MOVE <A5),D2 

40 MOVE 02,04 

MOVE .8 #2,017 

cB16_2: CALLA TI2 

CMP <A5),D1 

JMPR.S GE.CS16 3 

MOVE (A5),0r 

c816 3: CMP (A5).D3 

JMPR.S LE.C816 4 

MOVE (A5),D3~ 

C&16 4: CALLA TI2 

CMP (A5),02 

JMPR.S GE,c816 5 

MOVE (AS),D2~ 

C816 5: CMP (A5),D4 

JMPR.S LE.C816 6 

MOVE (A5),04~ 

cfl16 6: DJNZ.8 DL7,c816 2 

c817l ASL #3,03 

CMP 03,01 ; wb/nb > 8.0 

JKPA GT,nextcode 

c816: ASL #3,04 

CMP 02,04 ; ws/ns > 8.0 

JKPA CT,nextcode 
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• find th. ch.r.cter nidth by eddlne the »l* tl*»enU wkir* t* the ur ent 

• ch.recttr. If fore*.rd U trot, thote elwnti .re el ^S"?.!*: * ti?Il 

• «.rd ft felet, tho»e etf*«U are *2 through e7. Then, find t».t Ur total 
;• »nd four two ten* ?v* o< tht current character, thuily; 

« If fOttUAAD • TBUt If fORCWAW • "LSE 

n • ti«ti « ■ 2 

T2 . #2 *«j T2 • ej*e* 

T3 ■ " • 

T4 « e4*«5 U " e5 *«* 

IT • eW3*e5/CW BT • e3*e5«e7/CW 

cBII; 



cAU: 



cS13: 



cOlla; 



MOVE 


IPTR,A5 


n ■ 


A2 ' 






JMPt.S 


CC cfilS 




TI2 


MOVE 


(AS), 01 


imuc 


Dl A3 


bAUA 


1 IC 


MOVE 


(A3 3, PC 


ADO 


h5 ill 


MOVE 


M t\n 
Dl ,09 


CALLA 


TIZ 


MOVE 


(A5),D3 


ADO 


03,02 


ADO 




CALLA 


TI2 


HOVE 


(AS), 04 


ADO 


04,03 


ADO 


03,00 


CALLA 


TI2 


ADO 


(A5),D4 


ADO 


(AS) .00 


ADD 


(A5),A3 




I It 


ADD 


(A5>,00 




c811a 


CALU 


Tit 


NOVE 


(AS).OO 


CALLA 


Ti2 


MOVE 


(A5).D4 


MOVE 


D4,A3 


CALLA 


Ti2 


MOVE 


<A5).D5 


ADD 


03,04 


ADD 


04,00 


CALLA 


Ttt 


MOVE 


(A5).D2 


ADO 


D2.AJ 


ADO 


02,03 


CALLA 


m 


MOVE 


(A5),D1 


ADO 


01,02 


ADO 


02,00 


CALL 


T« 


ADD 


(AS).Dl 


ADD 


(A5),D0 


ADO 


(AS).AS 


HOVE 


01, T1 


MOVE 


D2,T2 


MOVE 


D3,T3 


MOVE 


D4.T4 



; T1 ■ eto2 
; T2 ■ e2*e3 

; T3 • e>e4 

, T4 » o4*e5 

; A3 « e}1**»fJ 

; DO ■ eV«2*e3*e4*e5*e6 



; T4 » «>e4 

; T3 • e4*«5 
; T2 » e5*e© 



; Tt ■ «6*e7 

• DO » e2*e3+e4*e5*«6*e7 

; A3 ■ e>«5*e7 



AT EXIT DO CHAR WIDTH 
T1 T1 
T2 T2 
T3 »«► T3 
T4 T4 
A3 »«> BA8 TOTAL 



• Coipite the five thrtthold vituw by ~UI plying th« '"J* "J? h 
timtf the threshold constant* 2.5/11. 3.5/11. 4.5/11, 5.5/11, end 6.5/11. 



cBU: 



MOVE 

CUl 

MOVE 

OIVU 

MOVE 

LSR 



00,05 
04 

•11,01 

01,04 

05,01 

#1,01 

05,01 ' 

DS,D1 



; 05 ■ CU/11 



01 • CW2.S/11 
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MOVE 01,0? 

ADO 05,02 ; 02 • CVJ.S/11 

*OVE 02.03 

ADD 05.03 ; 03 • CV4.5/11 

MOVE 03,04 

ADO 05,04 ; 0* • CW5.5/11 

ADD 04,05 ; 05 • CW»6.5/11 

Compute the cherectcr pattern. The lour diotU **ktno \* tM» pettern ere 

Benefited by dolnQ following for each two tew sin T1 throve* 14. for 
i 1 to 4... 

Dj ■ 2 H Tj < threiht 

.• D) ■ 3 W Tj < threth2 

Oj • 4 If Tj < thre«h3 

»■ Dj ■ 5 M Tj « threeM 

DJ ■ 6 If Tj < thresh) 

DJ • 7 If Tj tbreeto 
I- the pettern. thm. Is .quel tp «» d(4) ♦ 16*d<3> ♦ 256N«3> ♦ 4096**1) 
;• 

c8l5s CMP T1,D1 ; threiM > T1 

JMPt.S U.C815J 

hove mooo.oe 

JMPt.S c815 6 

cB15 It CMP T1.02 

JNPt.S U,c615J2 

MOVE «3000,D6 

JMNJ cB15 6 

c815 2s CMP Tl,oJ 

JMPt.S ll,c813_3 

MOVE #UO0O,D6 

JMPt.S c815 6 

C8T5 3: CMP T1.D4 

JMPt.S U,e815_4 

MOVE #0000,06 

JMPt.S c815 6 

catS 4: CMP Tl.oJ 

JNPt.S iE,c815_5 

MOVE «6000,06 

JMPt.S c815 6 

c815 5: MOVE #S7000,D6 

c815~6: CMP -T2.01 

JNPt.S tt,eS15_7 

ADO 010200,06 

JNPt.S c815 12 

C015 7: CMP T2.D2 

JNPt.S U,c815jB 

ADO #*0300,D6 

JNPt.S c815 12 

c815 8: CMP T2.05 

JNPt.S lE.ea«_9 

ADO tSO400,D6 

JNPt.S c«15J2 

c*15_9: CMP T2.D4 

JNPt.S IE V <*15 10 

ADO #S0500,06 

JMPt.S C815J2 

c81$ 10s CMP 12,05 

JMPt.S IE.C81SJ1 

ADO rtOoOO.W 

JMPt.S e815J2 

c815 11s ADO #$0700,06 

c815~12: CMP T3,01 

JMPt.S tE r eai5j3 

ADO «0020,D6 

JMPt.S c815 18 

c815 13s CMP T3.D2 

JMPt.S LE,c815J4 

ADD «0030 f D6 

JMPt.S e815 18 

c815 14s CMP T3 t D3 

JMPt.S tE,c815J3 

ADO «S0040 i 06 

JMPt.S C815 IB 

c815 15s CMP T3.D* 

JMPt.S U,e815_16 

ADO fS0050,D6 

JNPt.S c815 18 

C815 16? CMP T3.03 

JKPA.S LE,c815 17 

ADO «0060,D6 
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c615 17: 
C5l5~1fi: 



JHPt.S 

ADD 

CMP 

JHPR.S 

ADO 

SET 



tB15 19: 0* 



cOU 20: 



c61S 21: 



JMPA.t 

ADD 

IET 

CMP 

JMPA.S 

ADO 

RET 

CMP 

ADO 
■ET 



c81S 22: CMP 



cB15_23x 



JMPR.S 

ADO 

IET 

ADD 

IET 



c615 ID 
«O070,06 

T4,oi 

HO002.D6 
T4.02 

U a c5».20 
fSQO03.D6 

H,t>3 
fiDOM.06 

T4.D4 

LE,cOl5_22 
«O0O5,06 

T4.DS 
LE.cai5.23 

#$0007.07 



A1 EXIT 00 «> CHAR WIDTH 
AO ~> UST WIDTH 
06 ~> CHAR PATTERN 
A3 •»> IAS TOTAL 



eodeC128: 8TST #CT28,0ECO0ER1 

JMPA CC,r«xtcodt 

HOVE lattl.AS 

HOVE AS.lPTR 

{• |f ele»*nt(1 > < 3"UU«ntCH1) ♦ elewtt<M» quit, margin width too 
mil. 

cOOO: 



MOVE 


(A5>,00 




CALLA 


m 




MOVE 
CALLA 


(A5>,01 
T12 




ADO 


<A5>,01 




ADD 


D1.D1 


• 


CMP 


00,01 




JMPA 


GE.nextcode 





!• Set forewrd true and Jmp to proeeedure coll and jet a *mct«r pjjtm. 
!• If the pattern U em of the following, Atart the label ttrinp. with that 
character* 

I* 32S5 103 (atart A> 

3233 104 (stert ■> 

*• 323S 105 (atart C) 

.• 3224 107 (backward step) 

If character ft 107 (backward ttop) tat the foreward flag false. If none 
;• of these lour characters it found, quit the aleorl tl». Other wise *J« 
• the character pattern parity and width. (c807 and cfl16>. If either of these 

tests fall, quit. Otherwise, move iPIR one fraeewldth foreward (6 etett- 
;« entt) in the data buffer, 
*• 

co04: ISET fFOREWARO.SR 

cflll ; AT EXIT 00 «« CHAR WIDTH 



CMP #S3253,D6 ; W «•> LAST WIDTH 

JMPA.S XE.eBoij ; 06 «> CHAR PATTERN 

NOVE.B #103,0*7 ; A3 «» SAR TOTAL 



JMPR.S C804 4 

cflM 1: CMP #13233,06 

JMPR.S NE.cSO* 2 

MOVE.i #1«,0H7 

JMPR.S cS04> 

c504 2: CMP #13235.06 

JMPR.S «E,c604 3 

MOVE.t #105.OH? 
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JwPt.S cAO( 4 
cftW I: CMP «3?5* f D6 
JMPA Kt.ntxicod* 

move.b #tor,oiiT 

cBO* 4: cu LAIH.WF 

HQ* #LAtfl 8Uf*1 v A4 

MOVE.B DH7.CA4> 

ADO.I f1 # UIK_IUF 

clZBloop: MCVE IPTi.AJ 

ADO #12.A5 ; incrtffitot pot Mar by 1 «W» 

CMP OCDIW.A5 

JWI.S IT,C12SJ 

SUt #V1DTM,A5 

C12BJ: MOVE A5JPTI 

c805: CAIU rooa 
•• 

Do tht croc— dun at eBII to ott ■ charactar pattam; than uaa tht tookm 
;• libit at raf. 63.6 to »tt a charactar. Tha following trot tcco^llaha* 

thla by locking at tht two mat of gnff leant dlpltt of tha charactar 
;• pattarn and. If a oaten la fowl, attojptft to patch tha two taait alan- 

Wear* df«Ua. If no oaten la found, quit (invalid charactar). 

? oat a charactar 

; 2225 



2234 



c606: 


CAIU 


c811 




CMP.I 


#SZ2,0»6 




JMPt.I 


#E,eJS06 6 




cmp.s 


#S25,PU 




JMPt.S 


NEc806 1 




MOVE .8 






JMPA 


cfi07 


cA06 1t 


CMP.I 


#S34,DU 


JMPt.S 


REcBOd 2 




MOVE .8 
JMPA 


#63,0*7 
c807 


CDODjc: 


CMP. 8 


dm nur 
KHJ,Da* 


jivK.a 




M0VE*S 




JMPA 


eflOT 


cB06_3: 


OT.8 


#S4S,BL6 




JMPt.S 


MEcBOd 4 




MOVE .8 
JMPA 


#33,D«7 
cB07 


cB06j4: 


CMP .8 


#S47,DL6 
NEcBOoS 


JMPt.S 




MOVE .8 


#93.0tf 




JMPA 


eB07 


c«06_5: 


CMP. 8 


#$56,016 




JMPA 


ME.ntxteodt 

064.0*7 

eB07 




move. a 

JMPA 


cfl06_6s 


CMP. 8 


#S23,DM6 


JMPt.S 


K.eB06 12 




CMP.B 


#S34,fiL6 




JMPt.S 


«,cB06_7 




MOVE. 8 
JMPA 


#42,0117 
C807 


cB06_7: 


CMP. 8 


OW.OU 


JMPt.S 


KE,c806 8 




MOVE. 8 


069, DH7" 




JMPA 


c807 


cM6_8: 


CMP.B 


#S4$,0L6 




JMPt.S 


NE.cflOS 9 




MOVE. 8 


•12,087 
cB07 




JMPA 


c&06J?z 


CMP. 8 


»54,Dt6 




JMPR.8 


KE,c806 10 




M0VE.8 
JMPA 


#36.0X7 
cB07 


C&06J0: 


CMP.B 


#136,016 




JMPt.S 


ME.CB06 11 




MOVE. 8 


#43,0*7" 




JMPA 


cM7 


C506J1: 


CMP.I 


OC65,0U 




JMPA 


NE,naxtcodt 
*70,OH7 




MOVE. 8 




JMPA 


C807 


C8D6J2: 


CMP.8 


«24,DK6 


JMPt.S 


NE,cB06 16 




CMP.8 


#UJ,DL4 



; 2236 



2245 



; 2247 



2256 



2334 



2343 



2345 



2354 



2356 



; 2365 



2443 
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JMPI.I NC,ca06_U 

HOVE. I #45,0117 

JKPA c607 

C&06 13: CMP.I #U5,D16 ? 2*45 

JMPR.S «,cW6Jt 

KM. I #99,DR7 

j MP A e507 

c606 Hs CMP.I «54,D16 ? 2454 

JMPt.S «,cM6J5 

MOVE.I #15,D«7 

JMPA cB07 

cM6 15: CMP.I «65,DU ; 2465 

JMPA Rl.nwieodt 

MOVE. I #46,0*7 

JMPA O07 

cfi06 16: CMP. I «25,0H6 

JMPR.S «,c«06 20 

cmp.i #ss2,diS ; 2552 

JMPt.S #f,cM6J7 

MOVE.I I95.DK7 

JNPA cB07 

c£06 17: CMP.I #154,016 ; 2554 

JMPR.S HC.C0O6 ia 

MOVE.I #100,DH? 

JMPA cM7 

cfl06 16: CMP.I #S63,016 ; 2563 

JMPt.S W,c406 19 

MOVE. I «S,DK7 

JMPA cA07 

c606 19: Off.! #*74,D16 ; 2574 

JMPA KE.mtcodt 

MOVE.I #96,DM7 

JMPA cM7 

C606 20: CMP.I #S32,DH6 

JMPR.S KE,c606 26 

CMP.I #*24,Dl3 ; 3224 

JMPft.S ME,c506 21 

MOVE.I *1Q7,0tf ; Uckwrd stop 

JMPA c807 

C606 21: CMP.I #S33,DL6 ; 3233 

JKPX.S NE,c606 22 

MOVE.I #104,Dh7 ; «t»rt I 

JMPA c507 

C506 22: CMP.I #335,016 ; 3235 

JMPt.S NE,c606 23 

MOVE.I #105,DH7 ; lUrt C 

JMPA c807 

c806 23: CMP.I «44,0L6 ; 3244 

JMPX.S ME,eB06 24 

MOVE.I #39,DR7 r 

JMPA C0O7 

c606 24: CMP.I #S46,DL6 ? 3246 

JMPt.S KE,c606_25 

MOVE.! #49,0R7 

JMPA c507 
c«06 25: CMP.I «55,OL6 ; 3255 

JMPRA NE,n«tcode 

MOVE.I #103 t OH7 ; *Urt A 

JMPA cQOT 

C606 26: CMP.I #S33,0H6 

JMPt.S NE,e0O6 36 

CMP.I #S23,0L6 ; 3332 

JMPR.S NE.C606.27 

MOVE.I «65,DH7 

JMPA c607 
c606 27: CMP.I #S25,016 ; 3325 

JMPR.S NE,cS06 28 

MOVE.I #81,DH7 

JMPA cfl07 
c806 21: CMP.I #S33,DL6 ; 3333 

JMPR.S HE,eB06_29 

MOVE.I #30,OH7 

JMPA cS07 
cA06 29: CMP.I #134,016 ; 3334 

JMPR.S NE,c606 30 

MOVE.I #03,DH7 

JMPA c607 
c&06 30: CMP.I #S35,016 ; 3335 

JMPR.S WE, cB06 31 
MOVE.! #89,0K7~ 
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JNPA cM7 
cW6 31: CKP.i ft 56.016 ; 3336 

jhpj.s 32 
KM. I •62,01*7"" 
JNPA c507 
CA06J2: CNP.B #S4*,0l6 ; 3344 

' JNPt.S ME,e806 95 

NOVE.t #00,0*7~ 
JNPA cfl07 
C606J3: W.I #$45,016 ; 3345 

JNPt.S IE,c806 34 
NOVE.B #«,DK7~ 
JKPA c507 

r0 C606 34: CNP.B #S55,DL6 ; 3355 

JNPt.S NE,c606 35 
NOVE.B #31,0*7" 
JHPA cfi07 
c806_35: CNP.B #S56,0t6 ; 3356 

JNPA NE,n»tcodt 
NOVE.B #66,DM7 

15 JNPA cB07 

c806 36: CNP.B «$34,0ft6 

JHPt.t ME,c806 46 

cnp.i nu.oil : 543? 

JNPt.S #E,€806 37 

NOVE.B #71,M7~ 

JNPA €807 

CB06JS7: CNP.B #*34,0U ; 3434 

JNPt.S «,C806 38 

HDW.i #13.DH7~ 

JNPA c8Q7 

e806_38: CNP.8 #*42,DU ; 3442 

jnh.s wt.cac* so 

MOVE. I #51,0X7" 

JNPA c807 

25 cB06 39: CNP.I #*43 f OL6 ; 3443 

JNPt.S NE.C806 40 

NOVE.t #06,0117" 

JMPA c807 

c806 40: CNP.I #S44,DL6 ; 3444 

JNPt.S KE,c606 41 

NOVE.I #53,0«7~ 

30 JMM c807 

e806_4t: CNP.I #843,016 ; 3443 

JHPt.t K£,c806 42 

NOVE.B #14,087" 

JMPA c807 

c806_42: CNP.8 #153,016 ; 3433 

JNPl.f NE,c806j43 

~- NOVE.I #21 ,0117** 

35 JNPA C807 

€806.43: CNP.8 «54,DL6 ; 3454 

JNPt.S «E,e806 44 

NOVE.B #07,0*7" 

JNPA €807 

c«06_44: CNP.I #164,016 ; 3464 

JNPl.f IE,€80645 

40 NOVE.B #52^«r 

JNPA €607 

c606_45: CNP.8 #S65,D16 ; 3465 

JNPA VE.ncxtcod* 

NOVE.B #72,DM7 

JNPA c807 

€806^46: CNP.I #S35,DH6 

4fi JNPt.S NE.C806 40 

CNP.8 #U3,DL6 ; 3543 

JNPt.S n ,c806 47 ✓ 

NOVE.B f16,OH7" 

JNPA c807 

c8C647: CNP.B #153,016 ; 3555 

JNPt.S «,c806 48 

s0 NOVE.B #90,0*7*" 

JNPA c807 

e806_48: CNP.B #S$4,DL6 ; 3554 

JNPA *E,r*Ktcodt 

NOVE.B #17,DM7 

JNPA €807 

c806_49: CNP.I #136,0*6 

JNPt.S NE,C606 51 

55 CNP.I #852,016 ; 3652 
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JMPI.S «,c6O6.50 

„rt.t W4.DH7 

JHPA cM7 

c C8O6J0: CMP.t nM 4 0U I 

5 j*PA wE.ncntcodt 

NOVf-ft «»,0H7 

JHPA c807 

cB06 51: CMP.t n42 «?!f*.. 

JMPI.S HE # c606.55 

- cnp. I na,oi6 ; «» 

* JMPI.S «.c606.52 
70 WVC.I *54,OH7 

jMPA tB07 

c606 52: CMP.t «25,0l6 ; 4225 

> ' JMPI.S HE,c606 53 

WVE.I ftOl.OM? 

JHPA C&07 

c506 55: CMP.1 #S34,0L6 J 4Z34 

jMPt.S lTE.ea06.54 

* 5 NOVE.t «4.D»7 

JHPA cB07 

CB05 54l OM «45.0tf ; 4245 

JHPA ME.nwtcode 

MOVE.! 155,087 

JHPA c807 

C606 55: CMP.t IS43.DH6 

20 " J»t.$ KE.c806.65 

CMP.1 «22.016 ; 4322 

JMPt.S tt.c806.56 

MOVE.I #76,0117 

JHPA c807 

e806.56: CMP.t «**' D " 7 *224 

jmpi.s nE.eao6j7 

HOVE.t #19,087 

25 WA 

c806 57: CMP.1 #S32,016 ; 4232 

JMPX.S Mi.c506.58 

HOVE.t #57,OR7 

JHPA c807 

c806 58s CMP.1 H33.0U ; 4233 

JMPI.S W.CB0659 

30 MOVE.! #09,DH7 

JHPA C507 

CB06 59: CMP.1 #834,016 ; 4234 

JMPI.S HE,c806j60 
NOVE.t #23,tH7 
JKPA c807 

c606 60: CMP.t fS35,0i6v ; 4235 
JMPt.S 116,0806.61 
35 M0VE.I «Z0,DK7 

JHPA cA07 

c606 61: CMP.t #S43.0l6 ; 4243 

JHWUS W.e806 62 
HOVE.t #27,DH7 
JMPA c807 

cm 62: CKP.8 #S44,M.6 ; 4244 

40 " JMP1.S HC.C806 63 

JHPA ««07 
C806 63: CMP.8 M54.D16 ; 42S4 

JMPI.S HE,e806.64 
NOVE.I #58,DK7 
JHPA e807 
c606 64: CMP.t *S55.DL6 ; 4255 

* 45 ~ JMPI.S HE. next code 

MOVE.D #61,087 
JMPA cB07 
C806 6S: CMP.t HSU.PH6 

* " JMPt.S HE.c806.72 

J CMP.t «23.0t6 ; 44Z3 

4 JMPI.S HE.c806.66 

c« HOVE.i I34.0H7 

w JMPA c807 

c606 66: CMP.t «2S,Ol6 ; 4425 

JMPI.S HE,c606_67 
MOVE.I «94.0H7 
JMPA c807 
c606 67: CMP.t M33.0L6 ; 4233 

JMPI.S HE.c806.68 
55 NOVE.I #01.DH7 
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J*PA c5or 

c806_68: CHP.I i*34,0l6 ; 4234 

.Jttfrft.S Ut.c606 69 

NOV*. | #0S,DH7~ 
JHPA cAQ7 
c806 69; CMP.I H43.016 ; 4243 

5 JNPt.s NE,c606 70 

NOVt.l #48.0M7 

JNPA CA07 

c806 70: CMP.I »U,016 ; 4244 

JMPt.S K.CB06 71 

MOVE.! *02,0n7~ 

JNPA c807 

'0 cBOAjt: Off. I »45,DL6 ; 4245 

NE.rxxteodt 

MOVE, | #35,0*7 

JNPA c907 

c806J2i CMP. I #S4S,DK6 

JW.I KE,c806 79 

CMF.I #S32,Dtl ? 4532 

75 JMW.I NE,c806 73 

MOVE. | #37,0*7 

JNPA eS07 

c806_73: OT.I #134,016 ; 4534 

JNPt.8 NE,c806 74 

MOVE.! #44,0H7~ 

JNPA c607 

20 eU6 74: OT.I #*42.DL6 ; 4542 



JNPt.8 KE.c806 75 

MOVE.! #22,0*7 

JNPA cS07 

cBOftjSs CMP. I #U3,DU ; 4543 

JNPt.S W,c806_76 

MOVE.I #08,0*7 

JNPA cB07 

25 c806_76: CMP.I #*52,0L6 ; 4552 

JNPt.S NE,c606 77 

MOVE.I #60,DX7~ 

JMPA cW7 

e806JT7: CMP. I #$S3,0L6 ; 4553 

JNPft.S Kt,cB06 78 

move.i #18,0*/* 

30 JNPA €807 

c806_78: CMP. I #154 ,0U ; 4554 

JMPI.S NE,mxtcodt 

MOVE.I #36,0H7 

JNPA c807 

cW 79: CMP. I «146,0H6 

JNPt.S KE f cfi06 80 

3S CKP-I #U3,0t? ; 4643 

JNPA ME, next cod* 

MOVE.I #47,0*7 

JNPA c607 

CB06J50: CMP. I «S47,DK6 

JNPt.8 *C,c606 81 

CNP.8 #52,016 ; 4752 

^ JNPA KE,fitMtcorft 

W MOVE.I #79,DM7 

JNPA c807 

c806 81: CMP. I #152,0X6 

JMPt.S KC,c606 85 

CKP.i #122,016 ; 5222 

JNPA NE,c606 82 

MOVE.I #97,DH7 

45 JNPA c807 

c506 82: CKP.I #124,016 ; 5224 

JNPA VE,C806 JO 

MOVE.I #102,011? 

JMPA c807 

c806.83: CMP.I #133.014 ; 5233 

JNPA *E,c606 84 

50 MOVE.I #86,017* 

JNPA c807 

t806_64: CMP.I fU4 r 0l6 ; 5344 

JMPA HE. next code 

MOVE.I #98,0*7 

JMPA c807 

C606 85: CMP.I #iS3,DH6 

« JKPt.S NE.c806.88 

CMP.I «2J,0U ; 5323 



X 
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MOVE. I #25,OH7 

JKPA cwr 

c506 86; CMP.I «33,0l6 ; 5333 

JKPA #6.0806.87 

MOVE.! #91,DK7 

JKPA cM7 

cB06 87: CKP.I #134,0L6 ; 5334 

JKPA Jt£,nMtc*fc 

MOVE.I #26,DH7 

JMPA cM7 

C0D6 68: CKP.t «54,0H6 

JKPt.S «E,C606> 

CXP.i «22,D16 ; 5422 

JKPA ME,c606_89 

MOVE.I #4O.0M7 

JMPA (507 

cM6 89: CMP.I #1*4,016 ; 542* 

JKPA K£,c506_90 

MOVE.I f50 ( DH7 

JKPA e807 

C606 90x CMP.I #S32,0t6 ; 5*32 

JMPA K£.c806jW - 

MOVE.I #28,0117 

JMPA €807 

c806 91: CMP.I #133,016 ; 5433 

JKPA KE,C«*92 

MOVE.I #11.0K7 

JMPA c807 

c«6 92: CMP.I #«2.Dl6 ; 5U2 

JKPA KE,c606«3 

MOVE.I *T7Mr 

JKPA C807 

c&06 93: CMP.I #S*3,0l6 ; 5U3 

JMPA «,c«06_94 

MOVE.I #29,DN7 

JMPA cS07 

c606 94: CMP.I *U*,M 7 5444 

JMPA KE # n«tc«fc 

MOVC.I #41,0H7 

JMPA cfl07 

C0O6 94: CKP.I #S55,OH6 

JKPt.S *E,cMJ7 

CMP.I 1(23,016 ; 5523 

JMPA KE.c806.95 

MOVE.I #67,087 

JMPA tS07 

c806 95: CKP.I #133,016 ; 5533 

JKPt.S KE,c506_96 

MOVE.I #132,087 

JMPR.S c807 

C806 96: CMP.I #134.016 ; 5534 

JMPt.S «,nt«tccdt 

MOVE.I «68,0H7 

JKPR.S cB07 

cB06_97: CMP.I «56,DH6 

JMPR.S KE.C806JO0 

CMP.I #132,016 ; 5632 

JMPt.S NE,c806 98 

MOVE.I #73,0H7 

JKPt.S eS07 

C806 98: CMP.I #S42,0l6 ; 5642 

JMPt.S NE,c806_?9 

HOVE.B #106,OH7 I tt0 P 

JMPR.S c807 

C806 99: CMP.I #143.016 » 5643 

JMPt.S WE,c806JOO 

MOVE.! I74.0H7 

JKPR.S c807 

cB06 100: CMP.I #S63,DK6 

JKPR.S Kt.e606 102 

CMP.I «22,0L6 ; 6322 

JKPR.S HE.C806J01 

MOVE.I #57,DH7 

JMPR.S c807 

em 101: CKP.I #s33,0i6 ; 6333 

JKPA KE.rwtcode 

HOVE. 9 #88,DK7 

JKPt.S c807 

e806 102: CMP #16423.06 J 6423 
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10 



15 



20 



25 



30 



MOVf.l #56,D*7~ 

JKPt.l ctOT 

cftOo 103: CMP.I #U5,DX6 

jMPt.l tt.cflOo 106 

CMP.I «U2 v Dti ; 6522 

JMPl.t tt,cB0* 104 

WffJ #7o,D«7 

jMPt.i cBor 

cA06 104: OVA #*32,DLo ; 6532 

JMPI.I H,cM6 115 

MOVE.I #59,0117 

JMPft.l cB07 

c806 105: CMP.s *J3,Dl6 ; 6551 

JKPA IIE,ne>tcode 

NQVf.l #73,01(7 

JMPt.B C0O7 

cS06J06x CMP #7422,04 ; 7422 

J»A *£,nejitcode 

;• 

;• Chick for parity error using the character value found at an Index Into 
;• VTABLf. tat tht value found bt Vn, If Vr*1. 75/11 « sAk TOTAL or II 
Vn-1.75/11 > Ml TOTAL, quit (parity arror) 



cM7: 



HOVE 

iU 

HOVE 

ADD 

ADO 

ADO 

at 
hove 

DIM) 



CU 

HOVE.I 

ADO 

HO*.! 

MULU 

MOVE 



00,03 
#2,03 
03,02 
03,03 
02,03 
00,03 
02 

ill.AS 
A5,02 

#vtobla,AS 
04 

DM7,014 
04^5 

(A5>,DU - 

00,04 

05,04 

02,04 

02,05 

A3,04 

LT, nut code 
A3,05 

€T,nextcode 



; CUM 



cm/4 
oiM.73 



02 — > DT1.75/11 



05 ■ 



CW*Vn 



; 04 • CVCVrr>1.73/11> 
; 05 ■ OHWl-1.75/11> 
; ck Vm1.73/11 < OAK TOTAL 

; ck Vh- 1-75/11 > Ml TOTAL 



35 



40 



50 



55 



colojk 



c616 5: 



Find tht widest bar and spact and tht narrowest bar and apact aooung tht 
;• six eleewjnts poking up tht currant character. If foroword Is trut, thoso 
;• olenents aro a! through 06; If fortwsrd Is foist, thost olamams oro o2 
;* through e7. Ntxt, catculoto tht rotfe*a of tho widest bar to tho narrowest 

bar and that5 of tht widest spact to tht narrowest spact. If either of 
;* these ratio's Is larger then tho woxlsue olooont ratio <«.0>, quit tho 

decoder (element widths out of tolerance), 

?* 

c5l6t we 1PTk,A5 
CALU T12 
ITIT #r0REUMO # tt 
JMPt.S CS,cMo 1 
TI2 

<A5),01 
01,03 
T12 

(A5),D2 % 
02,04 
#2,017 
T12 

(A5),D1 
CE.cflH 3 
(A5),or 
(A5),D3 
LE,co16 4 
<A5>,D3~ 
TI2 

<A5),D2 
GC.C8U 5 
<A5>,D2~ 
<A5),D4 
LE,C&i6.6 



c816 1: HOVE 
MOVE 
CALU 
HOVE 
HOVE 
HOVE.I 

c816 2: CALU 



JMtt.S 
MOVE 
CMP 
JMPt.S 



c816 4: CALU 



JMWLS 
MOVE 
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ICVC <A5) < D4 

cBU.6: DJMZ.S Pl7 f cflt6 2 

cam acl #3 # os * 

JMM GT,r**tcod» 

eaifl: ACL #3,M 

«P «.M ; w»/m > a.O 

WA CT.ntitcodt 



Having described the invention In detail and by reference to the preferred embodiment thereof, it will be 
apparent that other modifications and variations are possible without departing from the scope of the 
Invention defined In the appended claims. 



Claims 

1. A method of decoding a binary scan signal consisting of a bit sequence produced by an electro- 
optical scanning device as the device scans bar code symbols on a label, the bits in said sequence 

2 0 corresponding to light and dark spaces making up said bar code symbols, comprising the steps of: 

a. ) supplying said binary scan signal to a storage buffer such that said buffer contains a plurality of 
bits most recently produced by said scanning device, 

b. ) selecting a portion of said bit sequence which defines a large light space, 

c. ) subjecting the bits in the sequence following those defining said large light space to a series of 
25 tests to determine whether such bits were produced by scanning a bar code symbol which is valid in one or 

more of several bar codes, 

d. ) decoding the bar code symbol in the codes in which it is valid, 

e. ) subjecting the next bits in the sequence to a series of tests to determine whether such bits were 
produced by scanning a bar code symbol which is valid in any of the bar codes In which the previously 

no decoded bar code symbol is valid, 

f. ) decoding the bar code symbol in the codes In which it and the previously decoded bar code 

symbol are valid, and 

g. ) repeating steps e.) and f.) above until all bar code symbols on the label have been decoded. 

2. The method of claim 1, in which said several bar codes include one or more codes selected from the 
as group consisting of Code 3 of 9. Interleaved 2 of 5. Codabar, Code 93, Code 12a and UPC/EAN. 

3. The method of claim 1 or 2, in which one of said series of tests is the comparison of the element 
ratio of the bits being tested with preset minimum and maximum element ratio levels, said element ratio 
being the ratio of the width of the widest of the dark spaces making up the symbol to the width of the 
narrowest of the dark spaces making up the symbol. 

40 4. The method of claim 1 ,2 or 3, in which one of said series of tests is the comparison of the element 
ratio of the bits being tested with preset minimum and maximum element ratio levels, said element ratio 
being the ratio of the width of the widest of the light spaces making up the symbol to the width of the 
narrowest of the light spaces making up the symbol. 

5. The method of claims 1 ,2, 3 or 4, in which one of said series of tests is the comparison of the margin 
45 ratio of the bits being tested with preset minimum margin ratio level, said margin ratio being the ratio of the 

width of the large light space preceding the symbols on a label to the sum of the width of the first several 
light and dark spaces making up the first symbol adjacent the large light space. 

6. The method of claim 1, 2, 3, 4 or 5, in which one of the series of tests is the comparison of the 
threshold ratio of the bits being tested with a preset with a threshold ratio, said threshold ratio being the 

so ratio of the width of the widest light or dark space making up the symbol to the width of a particular light or 
dark space within the symbol. 

7. The method of any preceding claim, in which one of the series of tests is the comparison of the 
character ratio of the bits being tested with preset maximum and minimum character ratio levels, said 
character ratio being the ratio of the sum of the widths of the light and dark spaces making up a symbol to 

55 the sum of the widths of the light and dark spaces making up the previous symbol. 
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8. The method of any preceding claim, in which one of the series of tests is the comparison of the gap 
ratio of the bits being tested with preset maximum and minimum gap ratio levels, said gap ratio being the 
sum of the widths of the light and dark spaces making up a symbol to the width of the tight space between 
the symbol and an adjacent symbol. 

5 9. The method of any preceding claim, in which one of the series of tests is the comparison of the 
maximum narrow element ratio of the bits being tested with a preset maximum narrow element ratio level, 
said maximum narrow element ratio being the greater of the maximum ratio of the width of the narrowest 
dark space in a symbol to the width of the narrowest light space in the symbol, or the maximum ratio of the 
width of the narrowest light space in the symbol to the width of the narrowest dark space in the symbol. 

70 10. The method of any preceding claim, in which step d.) includes the step of checking to determine 
whether the decoded bar code symbol is a backward or forward start or end symbol prior to subjecting 
further bits in the sequence to testing and decoding. 

11. The method of any preceding claim, in which step g.) includes the step of checking the decoded 
bar code symbol to insure that it is decoded as a symbol which is one of a valid set of such symbols prior 

15 to repeating steps e.) and f.). 

12. A method of any preceding claim, further comprising the step of comparison of the margin ratio of 
the bits in the sequence defining the final symbol with a preset minimum margin ratio level, said margin 
ratio being the ratio of the width of a large light space following the symbols on a label to the sum of the 
width of the last several light and dark spaces making up the last symbol adjacent the large light space. 

20 13. The method of any preceding claim, in which at least some of the tests to determine whether the 
bits in the bit sequence were produced by scanning a bar code symbol which is valid in several codes are 
performed simultaneously. 

14. The method of any preceding claim, in which the tests to determine whether the bits in the bit 
sequence were produced by scanning a bar code symbol which is valid in several codes are performed 

25 sequentially. 

15. The method of any preceding claim, in which steps b.) through g.) are performed by a programmed 
digital computer. 

16. The method of any preceding claim, in which one of said series of tests is the comparison of a 
threshold ratio of the bits being tested with several preset ratios, said threshold ratio being the ratio of the 

30 width of two of the spaces making up the symbol to the total width of the symbol. 

17. A method of decoding a digital scan signal consisting of a bit sequence produced by an electro- 
optical scanning device as the device scans bar code symbols on a label, comprising the steps of: 

a.) storing the bits of the digital scan signal which have been most recently produced by the electro- 
optical scanning device; 
as b.) selecting a portion of said bits which defines a large white space; 

c. ) subjecting a number of the bits in the sequence following those defining said large light space to 
a series of tests to determine whether such bits were produced by scanning one or more bar code symbols 
which are valid in one or more of several bar codes; and 

d. ) decoding the bits determined to have been produced by scanning one or more bar code symbols 
40 which are valid in one or more of said several bar codes. 

18. The method of claim 17 for decoding a digital scan signal, further comprising the step of: 

e. ) performing a series of additional tests on the bits in the decoded sequence to validate that such 
bits were produced by scanning one or more bar code symbols which are valid in one or more of said 
several bar codes. 

4S 19. The method of claim 17 or 18, in which said several bar codes include one or more codes selected 
from the group consisting of Code 3 of 9. Interleaved 2 of 5, Codabar, Code 93, Code 128, and UPC/EAN. 

20. The method of claim 17, 18 or 19, in which said steps a.) through d.) are performed by a 
programmed digital computer. 
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